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1.0  INTRODUCTION 

Supersonic  and  hypersonic  wind  tunnel  nozzles  can  be  placed  in  two 
general  categories,  planar  (also  called  two-dimensional)  and  axisymmetric. 
Early  supersonic  nozzles  (circa  1940)  were  planar  for  many  reasons:  the 
state  of  the  art  was  new  with  regard  to  both  the  design  and  the  fabrica- 
tion;' the  expansion  of  the  air  - the  usual  medium  - was  in  one  plane 
only,  thereby  simplifying  the  calculations  and  requiring  two  contoured 
walls  for  each  test  Mach  number  and  two  flat  walls  which  could  be  used 
for  all  the  Mach  numbers;  and  the  relatively  low  stagnation  temperature 
and  pressure  requirements  did  not  create  dimensional  stability  problems 
in  the  throat  region.  Dimensional  stability  would  in  later  years  become 
a primary  factor  in  the  development  of  axisymmetric  nozzles. 

Prandtl  and  Busemann,  Ref.  1,  laid  the  foundation  for  determining 
the  inviscid  nozzle  contours  by  the  method  of  characteristics.  Foelsch, 
Ref.  2,  simplified  the  calculation  of  the  contour  by  assuming  that  the 
flow  in  the  region  of  the  inflection  point  was  radial,  as  if  the  flow 
came  from  a theoretical  source  as  illustrated  in  Fig.  1.  The  downstream 
boundary  of  the  radial  flow  is  the  right-running  characteristic  AC  from 
the  inflection  point,  A,  to  the  point,  C,  on  the  axis  of  symmetry  where 
the  design  Mach  number  is  first  reached.  The  flow  properties  along  this 
characteristic  can  be  readily  calculated;  and  inasmuch  as  all  left- 
running characteristics  downstream  of  the  radial  flow  region  are  straight 
lines  in  planar  flow,  the  entire  downstream  contour  can  be  determined 
analytically.  Upstream  of  the  inflection  point,  it  was  assumed  that  the 
source  flow  could  be  produced  by  a contour  which  was  a simple  analytic 
curve.  In  the  Foelsch  design  the  Mach  number  gradient  on  the  axis  is 
discontinuous  at  the  juncture  of  the  radial  flow  region  and  the  begin- 
ning of  the  parallel  flow  region.  This  discontinuity  produces  a dis- 
continuity in  curvature  of  the  contour  at  the  inflection  point  and  at 
the  theoretical  exit  of  the  nozzle. 
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Figure  1.  A Foelsch-type  nozzle  with  radial  flow 
at  the  inflection  point. 

As  the  state  of  the  art  progressed,  it  became  desirable  to  cover  a 
range  of  Mach  numbers  without  fabricating  different  nozzle  blocks  for 
each  Mach  number.  A limited  range  of  Mach  numbers  could  be  covered  by 
using  blocks  with  unsymmetrical  contours  which  could  be  translated 
relative  to  each  other  to  vary  the  mean  Mach  number  in  the  test  section. 
The  widest  range  of  Mach  numbers  with  acceptably  uniform  flow  in  the 
test  section  has  been  obtained  in  wind  tunnels  in  which  the  contoured 
walls  consist  of  flexible  plates  supported  by  jacks  which  can  be  adjusted 
to  vary  the  contour  to  suit  each  Mach  number.  Inasmuch  as  the  curvature 
of  a plate  so  supported  must  be  continuous,  methods  of  calculating 
contours  with  continuous  curvature  were  developed  (Refs.  3,  4,  and  5) 
by  introducing  a transition  region,  A B C J,  downstream  of  the  radial 
flow  region  (see  Rig.  2).  The  shape  of  the  wall  between  points  A and  J 
was  controlled  to  give  continuous  curvature.  The  contours  used  for  the 
von  Karmen  Gas  Dynamics  Facility  40-  by  40-in.  Supersonic  Wind  Tunnel 
(A)  at  AEDC  were  obtained  by  the  method  of  Ref.  5.  Not  only  is  a 
continuous-curvature  contour  easier  to  match  with  a j ack- supported  plate, 
but  it  also  satisfies  the  potential  flow  criterion  for  zero  vorticity, 

dq/dn  = Kq  (1) 

where  q is  the  velocity  measured  along  a streamline  of  curvature  K and  n 
is  the  distance  normal  to  the  streamline.  Inasmuch  as  the  invlscid 
contour  is  a streamline,  this  criterion  implies  that  the  flow  will  be 
disturbed  where  a contour  has  a discontinuity  in  curvature. 
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Figure  2.  Nozzle  with  radial  flow  and  a transition 
region  to  produce  continuous  curvature. 

The  usual  wind  tunnel  criterion  concerning  temperature  is  that  the 
constituents  of  the  gas  should  not  liquefy  during  the  expansion  process 
required  to  reach  the  test  Mach  number.  For  the  usual  pressure  levels 
involved,  ambient  stagnation  temperatures  can  be  used  up  to  a Mach 
number  of  about  five.  As  the  stagnation  temperature  is  raised,  dimen- 
sional stability  becomes  more  difficult  to  maintain  in  a planar  nozzle. 
Therefore,  axisymmetric  nozzles  are  used  when  elevated  stagnation  tem- 
peratures are  involved.  Axisymmetric  nozzles  have  also  been  used  for 
low-density  tunnels  (Ref.  6)  because  their  bound ary- layer  growth  is  more 
uniform  than  that  of  planar  nozzles,  which  inherently  have  transverse 
pressure  gradients  on  the  flat  walls.  The  obvious  disadvantage  of 
axisymmetric  nozzles  is  that  each  one  must  be  designed  for  a particular 
Mach  number.  Moreover,  disturbances  created  by  imperfections  in  the 
contour  tend  to  be  focused  on  the  centerline. 

Before  the  advent  of  high-speed  digital  computers,  it  was  extremely 
time  consuming  (Ref.  7)  to  calculate  axisymmetric  nozzle  flow  by  the 
method  of  characteristics  (Ref.  8).  Inasmuch  as  the  assumption  of 
source  flow  saved  time  in  designing  a planar  nozzle,  it  was  logical  to 
use  source  flow  as  a starting  point  in  the  design  of  an  axisymmetric 
nozzle.  In  Ref.  9,  Foelsch  develops  an  approximate  method  of  converting 
the  radial  flow  to  uniform  flow.  Beckwith  et  al. , Ref.  7,  show  that 
Foelsch* s approximations  were  quite  inaccurate  but  utilized  the  idea  of 
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a region  of  radial  flow  followed  immediately  on  the  axis  by  uniform 
flow,  as  in  Fig.  1.  As  in  the  case  of  planar  flow,  the  discontinuity  in 
Mach  number  gradient  on  the  axis  produces  a discontinuity  in  curvature 
on  the  contour  (Ref.  10).  Such  discontinuities  have  been  eliminated  by 
the  design  methods  of  Refs.  10,  11,  and  12;  here,  an  axial  distribution 
of  Mach  number  (or  velocity)  between  points  B and  C (Fig.  2)  introduces 
a transition  region  between  the  radial  and  parallel  flow  regions,  thus 
gradually  reducing  the  gradient  and/or  second  derivative  to  zero  from  the 
radial  flow  values  at  the  beginning  of  the  parallel  flow.  As  shown  in 
Fig.  3,  the  upstream  boundary  of  the  radial  flow  region  is  a left-running 
characteristic  from  the  inflection  point,  G,  to  the  axis  at  point  E.  The 
flow  angle  is  the  same  at  points  G and  A.  Both  are  shown  to  illustrate 
a general  nozzle  design.  As  described  in  Ref.  12,  the  contour  upstream 
of  the  inflection  point  can  be  calculated  for  an  axial  distribution  of 
velocity  in  the  region  between  points  I and  E,  which  makes  the  transition 
from  sonic  values  to  radial  flow  values.  On  the  axis,  the  sonic  values 
of  first  and  second  derivatives  of  velocity  with  respect  to  axial  distance 
were  calculated  by  an  adaptation  of  the  transonic  theory  of  Hall,  Ref. 

13,  or  Kliegel  and  Levine,  Ref.  14.  The  upstream  limit  of  these  cal- 
culations was  the  left-running  characteristic  from  the  sonic  point  on 
the  axis. 


Figure  3.  Nozzle  illustrating  design  method  of 
Ref.  13. 
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This  characteristic  is  also  called  a branch  line.  Between  the  theo- 
retical location  of  the  throat  and  the  intersection  of  the  branch  line 
with  the  contour  was  a region  which  was  not  calculated  but  which  in- 
creased in  size  as  the  throat  curvature  increased.  This  gap  in  the 
contour  has  been  eliminated  by  the  method  described  herein  which  util- 
izes a right-running  characteristic  originating  at  the  throat  as  shown 
in  Fig.  4 (where  point  I has  been  moved  from  the  sonic  line  to  the 
throat  characteristic) . With  this  latest  improvement  upon  the  method  of 
Ref.  12,  contours  can  be  designed  which  have  throat  radii  of  curvature 
of  the  same  order  of  magnitude  as  the  throat  radii  although  such  an 
extreme  curvature  would  not  normally  be  recommended  from  other  stand- 
points, A recent  (1975)  design  of  a Mach  6 nozzle  utilized  this  method 
with  a throat  radius  of  curvature  of  about  5.5  times  the  throat  radius. 


Figure  4.  Nozzle  throat  region. 


After  the  design  method  was  developed  for  axisymmetric  nozzles,  it 
was  adapted  for  planar  nozzles  having  a prescribed  centerline  dis- 
tribution of  Mach  number  (or  velocity).  This  approach  to  such  a design 
is  considerably  different  from  that  of  Ref.  5.  The  current  design 
method  is  incorporated  into  the  computer  program  included  herein.  As  an 
option  in  the  program,  a complete  centerline  Mach  number  distribution 
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can  be  used  which  does  not  include  a radial  flow  region.  Parts  of  the 
computer  program  are  subroutines  for  computing  the  boundary- layer  correction 
to  the  inviscid  contour,  for  smoothing  the  contour,  and  for  interpolat- 
ing points  at  even  axial  positions  by  means  of  a cubic  spline  fit  of  the 
contour. 


2.0  TRANSONIC  SOLUTION 


In  many  early  nozzle  designs,  it  was  assumed  that  the  flow  at  the 
throat  was  uniform  (M  = 1)  and  parallel.  This  assumption  implies  that 
the  wall  curvature  is  zero  and  that  the  acceleration  of  the  flow  is 
zero  (i.e.,  the  acceleration  starts  from  zero  at  the  beginning  of  the 
contraction,  reaches  a maximum  in  the  contraction  but  is  reduced  to  zero 
again  at  the  throat,  and  must  be  increased  again  in  the  beginning  of  the 
supersonic  contour  and  reduced  to  zero  at  the  nozzle  exit).  A nozzle  so 
designed  therefore  becomes  considerably  longer  than  one  in  which  the 
flow  reaches  its  maximum  acceleration  in  the  vicinity  of  the  throat, 
where  it  is  approximately  proportional  to  the  reciprocal  of  the  square 
root  of  the  radius  of  curvature.  The  above  argument  indicates  the 
fallacy  of  some  so-called  "minimum  length"  nozzles,  although  some 
designers  have  combined  a contraction  having  a relatively  high  throat 
curvature  with  the  supersonic  section  having  zero  throat  curvature. 


For  a throat  with  a finite  radius  of  curvature  there  have  been  many 
transonic  solutions.  Hall,  Ref.  13,  developed  a small  perturbation 
transonic  solution  for  irrotational,  perfect  gas  flow,  in  both  two- 
dimensional  and  axisymmetric  nozzles,  by  means  of  expansions  in  inverse 
powers  of  R,  the  ratio  of  the  throat  radius  of  curvature  to  the  throat 
half -height,  or  radius.  His  solution  gives  the  normalized  (with  the 
velocity  at  the  sonic  point)  axial  and  normal  velocity  components  in  the 
form 


u 


1 + 11  a (y,  z)  + ub  ^ z) 
R R2 


u (y,  z) 

C ' 

R3 


+ ♦ • • * 


(2) 
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where 


1 


r y+i  i2 

rva(y’z 

.)  + vb(y,*)  + 

Vc(7'z)  + . . . .1 

L (1  +o)  R J 

L R 

R2 

u3 

Z “ 

1 

j'(_l_+g)  R j x 

(3) 


(4) 


and  x and  y are  coordinates  normalized  with  the  throat  half-height  or 
radius,  y . The  value  of  a is  zero  for  two-dimensional  flow  and  one  for 
axisymmetric  flow.  Kliegel  and  Levine  in  Ref.  14  extended  the  applica- 
bility of  Hall's  axisymmetric  solution  to  lower  values  of  R essentially  by 
making  the  substitution 

R-1  = S'1  + S~2  + S~3  + . . . . (5) 

where  S = R + 1 , into  Eqs.  (2)  and  (3)..  In  the  method  used  herein,  the 
same  substitution  is  made  in  Eq.  (4)  for  two-dimensional  flow  as  well  as 
for  axisymmetric  flow  and  therefore  becomes  a special  case  of  the  general 
transonic  solution  described  in  Ref.  15.  The  complete  general  equations 
in  terms  of  S are  given  in  Appendix  A. 


At  the  throat,  x = 0,  y = y , v = 0,  for  planar  flow, 

u = 1 + _L  - (14y-75>  + (274 y2  - 86Iy  + 4464)  + 

3S  270S2  17010S3 

du  = A |~1  + 1 - (32y2  + 87y  - 561)  + . . . , 

dx/yo  L S 540S2 


and,  for  axisymmetric  flow. 


1 + J_  - (14y  - 57)  + (2364y2  - 39I5y  + 14337)  + 

4S  288S2  82944S3 

_ = X Tl  + X - (64y2  + I 17y  — 1026)  + _ . 
dx/yo  L 8S  1152S2 


(6) 

(7) 


(8) 

(9) 
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where  the  derivatives  are  with  respect  to  x nondimensionalized  by  the 
throat  half-height  or  radius,  respectively,  and 


A = 


1 
-i  2 


+ a 


(y-  ns 


(10) 


On  the  axis,  y = 0,  v = 0,  for  planar  flow. 


u = 1 - J_  + y~  15  - 78 2 y + 3507y  + 7767  + 
6S  27  OS2  27  51 60S3 


:X  + 134y2  + 4 29y  + 123  + > 


4320S*1 


(*)'(' 


2y-3  _ Jy_  + . 

6 36S 


(2y2  - 33y 


+ 9)/72  + . . 


(ID 


and,  for  axisymmetric  flow, 


u = l - _L  + 

4S  288S2 


2708yz  + 20V9y  + 2115 
82944S2 


*A  / 1 - _L 

yQ  v 8S 


+ 92y2  + I80y  - 9 + 
11 52S2 


(ft)'  (- 


2y  - 3 _ n±J  +....)  + 

6 16S  / 


(4y2  - 57y 


+ 27)/ 144  + . . . 


(12) 


Because  the  sonic  line  is  curved  for  finite  values  of  R,  the  mass 
flow  through  the  throat  is  reduced  by  the  factor  (discharge  coef- 
ficient), which  is  the  ratio  of  actual  mass  flow  to  that  which  could 
flow  if  R were  infinite  and  the  sonic  line  were  straight.  For  planar 
flow, 


y + 1 n 4y  — 24  334y2  - 457y  + 4353 

90S2  L 2 1 S 3780S2 


(13) 
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and,  for  axisymmetric  flow, 

CD  = 1 - Z±L  [l  _ 8y-27  + 754y_2  - 757y  + 3615  + . . T (14) 

96S2  L 2 4S  2880S2  J 

The  flow  which  passes  through  the  throat  also  passes  through  the 
sonic  area  of  the  source  flow  which  is  at  a distance  r^  from  the  source. 
In  planar  flow, 

y*  = y0  cn  = v ri  05) 

or 

y 0/ri  = VCD  (16) 

where  the  inflection  angle,  n,  is  in  radians. 


In  axisymmetric  flow. 


or 


ny*  2 = n y2  = 2n  r2  (1  - cos  77) 


(17) 


1 

y 0 /r j = 2 sin  (t,/2)/C2d 


(18) 


In  the  calculation  of  the  throat  characteristic  used  herein,  the 
value  at  x = 0,  y = y , Eq.  (6),  is  the  starting  point.  The  half-height 
or  radius,  y , is  divided  into  240  equally  spaced  values  of  y.  Inasmuch 
as  the  characteristic  is  right  running,  its  slope  at  each  point  is 

dy/dx  = tan  (0  - jx)  (19) 


where 

Also 


sin  /x  = 1/M 


W = M ( j—  + Xz2 
\ y+  1 y + 1 


(20) 

(21) 


and 


sin  <j>  = v/W 


(22) 


+ dcj>  = g sin  ^ 11TH  d £ 
y 


(23) 


13 


AE  DC-TR-78-63 


= dx/  cos  {</>  - fx)  = dy/ sin  (</>  - fi)  (24) 

The  term  ip  is  the  Prandtl-Meyer  angle  in  two-dimensional  flow, 


1 i i. 


/y+iV 

2 -i 

tan  J 

\tzl  (M2  - 1)1  2 - tan-'  (M2  - l)2 

(25) 

\y-\J 

L y+  1 J 

Equations  (19)  and  (23)  are  the  characteristic  equations  and  are  solved 
by  finite  differences.  If  all  values  are  known  at  point  1,  the  values 
at  point  2 are  found  (y  is  known  at  both  points)  by 


= x. 


2(y, 


■y,) 


+ tan  (<^>2 -|H2) 


(26) 


A £ = 


yj)2  + <x2 


(27) 


<A]  + 


+ o. 


vi 

Lwiy1«1 


2 7 2 2 


Af 


(28) 


At  the  starting  point  W is  the  value  of  u because  v = 0.  Values  of 
are  calculated  at  each  point  (x£,  y from  the  transonic  solution, 
and  Eqs.  (26)  to  (28)  are  iterated  until  convergence  is  reached.  For 
evaluating  the  term  in  brackets  in  Eq.  (28),  the  ratio  v/y  is  defined  by 
the  transonic  solution  even  on  the  axis  where  both  v and  y are  zero. 

This  fact  eliminates  the  general  problem  in  axisymmetric  characteristics 
solutions  of  evaluating  the  indeterminate  sin  <j>/y  in  Eq.  (23)  on  the 
axis  of  symmetry. 


It  may  be  noted  that  the  value  of  W as  calculated  from  the  character- 

2 2 1/2 

istic  value  from  Eq.  (21)  differs  from  the  value  (u  + v ) calculated 
from  the  transonic  equations,  but  the  difference  decreases  with  in- 
creasing R.  For  the  final  point  of  the  throat  characteristic  which  lies 
on  the  axis,  the  value  of  d u/dx  from  the  transonic  solution  for  the 
axial  distribution  is  "corrected"  to  make  u = W for  the  axisymmetric 
case  for  values  of  R less  than  12.  The  correction  is  about  16  percent 
for  R = 1 and  decreases  rapidly  as  R increases.  This  correction  is  made 
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2 2 

so  that  values  of  du/dx  and  d u/dx  can  be  calculated  from  the  transonic 

solution  for  later  application.  The  correction  is  believed  to  be  justified 

inasmuch  as  the  accuracy  of  the  transonic  solution  is  limited,  particularly 

for  low  values  of  R,  because  the  series  expression  for  u is  truncated 
3 

after  the  x term. 


3.0  CENTERLINE  DISTRIBUTION 


In  the  radial  flow  region,  the  distance  r,  measured  from  the  source, 
is  related  to  the  local  Mach  number  by 

y+i 

\l+<7 

r \ = M 1 


(0 


-1  2(y_1) 


y + 1 y + 1 


(29) 


or 


6*r- 


w-1  ( y+ 1 - y-  1 vv2 


-i 

y-l 


(30) 


First,  second,  and  third  derivatives  of  W or  M with  respect  to  r/r^  can 
be  obtained  as  described  in  Ref.  12.  Along  the  axis  x = r when  x is 
measured  from  the  source.  Inasmuch  as  all  coordinates  must  be  normalized 
by  the  same  factor,  r^ , the  transonic  equation  in  terms  of  x/yo  and  y/y^ 
can  be  transormed  by  Eqs.  (16)  and  (18),  after  which  the  distance  from 
the  source  to  the  throat  station  must  be  taken  into  account.  This 
latter  distance  is  generally  unknown  until  after  the  distance  from  point 
I to  point  E is  determined. 


In  radial  flow,  the  term  on  the  right-hand  side  of  Eq,  (23)  can  be 
evaluated  simply.  Inasmuch  as  sin  <f>  = y/r  and  d£  = dr/cos  y, 

sin  qS  sin  (I  = tan  dr 
y r 

but  _j 

tan  fx  = (M2  - 1)  2 
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and,  from  Eq.  (29)  for  a - 1 , 


Thus 


From  Eq.  (25) , 

therefore,  Eq.  (23), 


dr  = (M2  - 1)  dM 

r 2(1  + M2}  M 

2 


tan  u Hr 

r 


dr  - (M2  - l)2 


jdM 

2 (1  +¥zl  M2)  M 
2 


d i fj  = 


(M2  ~ l ) dM 

(1  + III  M2)  M 
2 


in  radial  flow,  becomes 


dl/r  + d </>  = <L  dip 
2 


(31) 


which  applies  for  characteristic  AB  or  GF.  Similarly,  for  the  left- 
running characteristic  EG, 


Therefore, 


dt/r  — d(f>  = 2 dj|i 
_ '/'A  = (cr  + 11  1 “ '/'G 


(/* G - V>K  = (a  + 1)  >7 

and,  from  the  design  values  n and  (and/or  M^) , M^, 
the  necessary  derivatives  can  be  calculated. 


mg,  Mg, 


(32) 

(33) 

(34) 


Wg,  and 


Within  the  accuracy  of  Eqs.  (11)  and  (12),  the  second  derivative  of 
velocity  ratio  at  the  sonic  point  is  negative  for  values  of  R less  than 
11.767  for  planar  flow  and  10.525  for  axisymmetric  flow.  The  second 
derivative  of  Mach  number  at  the  sonic  point  is  positive  for  all  values 
of  R.  Inasmuch  as  the  second  derivative  of  either  W or  M is  negative 
for  source  flow,  it  seems  better  to  use  a velocity  distribution  rather 
than  a Mach  number  distribution  between  points  I and  E.  On  the  other 
hand,  a Mach  number  distribution  between  points  B and  C is  preferable 
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because  the  velocity  ratio  approaches  the  constant  value  of  [(y  + 

I/O 

O/y  - D]  as  the  Mach  number  increases  to  infinity;  therefore,  the 
change  in  velocity  between  points  B and  C becomes  small  relative  to  the 
change  in  Mach  number. 

The  velocities  and  their  first  and  second  derivatives  at  points  I 
and  E are  used  to  determine  the  coefficients  of  the  general  fifth  degree 
polynomial 

W = Cj  + C2  X + C3  X2  + C4  X3  + C5  X4  + C6  X5  (35) 

where 

X = (x  - xf)/(xE  - xj)  (36) 

Similarly,  the  Mach  numbers  and  their  first  and  second  derivatives  at 
points  B and  C are  used  to  determine  the  coefficients  of  the  polynomial 

M = Dj  + D2  X + D3  X2  + D4  X3  + D5  X4  + D6  X5  (37) 

where,  in  this  case, 

x = (x  - Xp)/(xc  - xB)  (38) 

and  the  first  and  second  derivatives  at  point  C are  usually  set  equal  to 
zero. 

In  these  equations,  the  lengths  (x  -x_)  and  (x  -x_)  must  be  specified, 

J i ± o Jt> 

but  can  be  determined  by  the  conditions  that  Cg  and  equal  zero, 
thereby  reducing  the  polynomials  to  fourth-degree  ones.  If  the  velocity 
at  point  E is  determined  by  iteration,  the  third  derivative  at  point  I 
or  E can  be  included  as  a criterion  for  the  fourth-degree  polynomial; 
or,  by  setting  = 0,  one  can  find  a third-degree  polynomial  with  a con- 
stant third  derivative.  In  either  case,  the  Mach  number  at  point  B is 
found  from  Eqs.  (33)  and  (34)  after  the  value  at  point  E is  found.  All 
of  these  options  are  included  in  the  program,  but  unless  there  are  other 
factors  involved,  the  preferred  options  are  the  cubic  between  points  I 
and  E and  the  quart ic  between  points  B and  C. 
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For  the  cubic  distribution  for  axisymmetric  flow,  the  Mach  number 
at  point  E is  related  to  the  radius  ratio  as  shown  in  Fig.  5 for  y 
= 1.4  for  various  values  of  inflection  angle.  Cross  plotted  are  lines 
of  constant  values  of  the  ratio  /n.  Such  values  for  most  axisymmetric 
nozzles  lie  in  the  range  covered  in  this  figure,  and  inasmuch  as  t^/n 
= i^g/n  + 4,  values  of  can  also  be  obtained. 


Figure  5.  Relationships  obtained  from  cubic 

distribution  of  velocity  from  sonic 
point  to  point  E for  axisymmetric 
nozzle. 


18 


AEDC-TR-78-63 


In  determining  the  length  of  the  segment  between  points  B and  C, 
using  the  fourth-degree  polynomial  distribution,  there  is  a minimum 
value  of  the  Mach  number  at  point  B for  the  design  Mach  number  at  point 
C.  As  given  in  Ref.  12, 

Mb  = Mc  + 0.75  MdVMo  (39) 

where  the  primes  indicate  derivatives  with  respect  to  r/r^ . This 
relationship  is  shown  in  Fig.  6.  For  an  axisymmetric  nozzle  designed 
for  a Mach  number  greater  than  about  3.4,  the  minimum  Mach  number  at 


Minimum  Mach  Number  at  Point  B 


Figure  6.  Limitations  of  fourth-degree  distribution 
of  Mach  number  from  Eq.  (39). 

point  B is  about  two-thirds  of  the  design  Mach  number.  Using  such  a 

#> 

value  usually  causes  the  length  to  be  excessive,  and  more  realistic 
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values  of  are  75  to  80  percent  of  M^.  It  is  important,  however,  as 
illustrated  in  Ref.  16,  that  the  distance  between  points  B and  C be 
sufficient  to  allow  for  accurate  machining  of  the  contour  between 
points  A and  J,  which  lie  on  the  characteristics  through  points  B and  C, 
respectively. 


4.0  INVISCID  CONTOUR 

The  flow  properties  are  determined  at  a desired  number  of  points 
along  the  key  characteristics  (i.e.,  the  throat  characteristic,  TI,  as 
described  earlier  (a  sub-multiple  of  240  is  used  for  subsequent  calculations), 
the  characteristics  EG  and  AB  bounding  the  radial  flow  region  by  Eqs. 

(33)  and  (34)  for  equal  increments  in  n,  and  the  final  characteristic  CD 
along  which  the  Mach  number  is  constant  and  the  flow  angle  is  zero). 

The  flow  properties  are  also  determined  at  axial  points  from  Eqs.  (35) 
and  (37).  The  network  of  characteristics  is  then  calculated  in  the 
region  TIEG  starting  at  point  E and  progressing  upstream  and  in  the 
region  ABCD  starting  at  point  B and  progressing  downstream. 


The  equations 

for  a right-running  characteristic  were 

given  previously 

dy/dx  = tan(c Lf>  - pi) 

(19) 

d if/  + d 0 = a±in<f>  sin^  d£ 

(23) 

where 

df  = dx/cos(0  - pi)  = dy/sin(0  - pi) 

(24) 

For  a left-running 

characteristic,  the  equations  are 

dy/dx  = lan  (0  + pi) 

(40) 

d ,//  - d^  = o sin  $ sin  ft  d/ 

(41) 

where 

d£  = dx/cos  (0  + pi)  = dy/sin(0  + pi) 

(42) 

Also 

<U  - dM  = cot  a dw 

(1+ZliM2)  M w 

(43) 
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Values  of  x,  y,  cf>,  and  M are  known  at  the  general  point  1 on  the 
right-running  characteristic,  £,  and  at  the  general  point  2 on  the  left- 
running characteristic,  5.  ' The  characteristics  intersect  at  the  general 
point  3 where  the  values  are  calculated  by  numerical  integration  of  Eqs. 
(23)  and  (41)  along  the  respective  characteristics. 

(A3  - iA2  - (d>3  - <£2)  = P2  = 


where 


and 


where 

and 


a (Sin<^3  *in^3  + sin^2  Sin/X2  \ 

2 V y2  / 

A£  = (xg  - x2)  sec  (3 


^ — 2 = tan  /3  = L tan  + jx^)  + i tan  (</>2  + /z2) 


V>3  - V>i  + (<£3  - = Pj  = 


(sin  si 

_____ 


i iiflj  sin  c f>  j sin  jx  l 


)a^ 


y3  ~ Ll 


Adding,  substracting , and  rearranging  gives 

^3  = j (^2  + 'Ai  ~ ^2  + 


(44) 

(45) 

(46) 


(47) 


a 

(48) 

+■  i-  tan  (0J  - jx j) 

(49) 

+ P2  + P,) 

(50) 

+ P1  - P2) 

(51) 

In  planar  flow,  = 0 because  a = 0 and  Eqs.  (50)  and  (51) 

can  be  solved  directly,  M~  is  obtained  from  by  the  inverse  applica- 

J -1  J 

tion  of  Eq.  (25),  and  = sin  (1/M^).  In  axisymmetric  flow,  the  equa- 
tions must  be  solved  by  iteration.  A useful  first  approximation  for  P^ 
and  P2  is  the  radial  flow  values,  P^  = (ip^  - >p^)/2  and  P2  = (i|>  - ip2)/2. 
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At  all  points  except  on  the  axis  in  axisymmetric  flow,  Eqs.  (44) 
and  (47)  are  defined  because  and  y^  are  nonzero.  On  the  axis,  the 
terms  sin  $2^2  anc*  sin  are  ^determinate  with  the  form  zero/zero. 

These  indeterminates  can  be  evaluated  by  assuming  that  the  general 
points  1 and  2 on  the  axis  are  very  close  together  and  that  p **  ^3 

and  sb  as  W^.  Equation  (41)  can  be  written 

cot  p ill  = d0  + d-f  (52) 

w y cos  (0  + p) 

and  Eq.  23  can  be  written 

cot  p il  = _d0  + sin  <t>  .8igJ  dx  (53) 

W y cos  (0  ~ p) 

as  0 ->  0 , 0 ->  sin  0 , 0 ± p ->  ± p 


and 


tan 


^3 


X3  “ X2  ' X1  X3 


In  finite-difference  form, 


cot  p 

— w 


3 (W3  - W2)  = 03  + 


sin  d>3  tan  p3  (*3  - x2) 


£ 3 tan^3  <»a  ~ X2>  + SiH  ^3  tan  ^3  (*3  " V 


2 sin  963  tan  pg  (xg  - x2)/y3 


(54) 

(55) 


Similarly 


c0'  43  (m  _ w ) , 

w3  1 

= ^>3  + 

sin  0 3 

tan  p3  (xj  - x3)/y3 

(56) 

- 2 

sin  03 

tan  pg  (x 

1 " x3)/),3 

(57) 

Adding  Eqs. 

(55)  and  (57)  and 

rearranging, 

lim 

sin  0 _ 

2 

^ cot 

j±  dw 

(58) 

y->0 

y 

2 w 

dx 

and 

sin  02  s 
^2 

,inP2  , 

(m|-  1) 
2«2W2 

(£), 

(59) 
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for  use  in  Eq.  (44)  when  point  2 is  on  the  axis,  and 

sin  sin  til  = (Mf- I)  / jjp  \ 

yj  2Wjwj  ^dx  (60) 

for  use  in  Eq.  (47)  when  point  1 is  on  the  axis. 

In  starting  the  calculation  of  the  network  of  characteristics  in 
the  region  TIEG,  point  E becomes  point  1 and  the  first  axis  point  up- 
steam  of  point  E becomes  point  2.  The  complete  left-running  character- 
istic approximately  parallel  to  EG  is  calculated,  and  the  point  on  the 
contour  is  determined  from  mass  flow  considerations  as  described  in  Ref. 
17.  The  flow  properties  along  this  characteristic  are  then  used  to 
calculate  the  next  left-running  characteristic,  again  starting  on  the 
axis.  This  process  is  repeated  until  point  I is  reached,  after  which 
the  starting  point  for  each  left-running  characteristic  is  a point  on 
the  throat  characteristic  as  illustrated  in  Fig.  7.  The  process  in 


region  ABCD  is  similar  except  that  right-running  characteristics  are 
calculated  for  each  point  on  the  contour. 


0 0.2  0.4  0.6  0.8  1.0  1.2  1.4  1.6  1.8  2.0 

x 


Figure  7.  Characteristics  near  throat  of  nozzle 
with  R = 10 
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5.0  BOUNDARY-LAYER  CORRECTION 

To  each  ordinate  of  the  inviscid  contour  must  be  added  a correction 
for  the  bound ary- layer  growth  to  obtain  the  viscid  or  physical  contour 
of  the  nozzle.  Except  for  very  low  stagnation  pressures,  the  boundary 
layer  is  assumed  to  be  turbulent.  Generally,  the  boundary-layer  cor- 
rection will  be  made  for  one  design  condition  of  stagnation  pressure  and 
temperature  although  it  is  theoretically  possible  to  reshape  a flexible- 
plate  type  of  planar  nozzle  to  account  for  different  boundary-layer 
thicknesses  corresponding  to  different  stagnation  conditions.  The 
correction  for  a planar  nozzle  is  usually  applied  to  the  contoured  walls 
only,  but  the  correction  also  allows  for  the  growth  of  the  boundary 
layer  on  the  parallel  walls  in  order  to  maintain  a constant  Mach  number 
along  the  test  section  centerline.  Therefore,  the  correction  applied  is 
greater  than  the  displacement  thickness  on  the  contoured  walls,  and  the 
flow  in  the  test  section  is  diverging  in  the  longitudinal  plane  normal 
to  the  contoured  walls.  In  the  longitudinal  plane  normal  to  the  parallel 
walls,  the  flow  is  converging  because  of  the  boundary-layer  growth; 
moreover,  there  is  a tendency  for  the  boundary  layer  to  be  thicker  on 
the  wall  centerline  because  of  the  transverse  pressure  gradients  present 
on  the  parallel  walls.  Although  these  physical  effects  make  a true 
correction  impossible  for  a planar  nozzle,  the  calculations  described 
herein  are  made  as  if  the  cross  section  were  circular,  with  the  cir- 
cumference at  each  station  equal  to  the  periphery  of  the  actual  rec- 
tangular cross  section. 


The  method  of  calculating  the  boundary- layer  growth  is  based  on 


obtaining  a solution  to  the  von  Karman  momentum  equation  written  for 
axisymmetric  flow. 


d0_  + Q r 2 - M2  + H dM  + _L  drw1  = Cf  9ec  & 

dx  L M [l  + (y~-  1)  M2/2]  dx  rw  dx  J 2 w 


(61) 


The  term  £(1  /r  ) (drw/dx)J  becomes  an  effective  one  for  planar  flow  as 
just  described.  For  either  type  of  nozzle,  the  inviscid  value  is  used 
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as  a first  approximation.  The  entire  solution  is  iterated  several  times 
with  new  values  of  r and  dr  /dx  = tan  <j>  obtained  each  time  by  adding 

WWW  J a 

vectorially  the  displacement  thickness  to  the  inviscid  contour. 


The  value  of  momentum  thickness  used  in  Eq.  (61)  is  defined  by 


6 


(62) 


where  z is  measured  normal  to  the  wall. 


Also 


(63) 


The  quantities  and  8 may  be  considered  to  be  the  displacement  and 

momentum  thicknesses  when  the  boundary- layer  thickness  is  small  with 

respect  to  the  radius,  r . These  values  are  related  to  total  values 

g*  and  0 , obtained  from  mass-defect  and  momentum-defect  considerations 
a a 

by 


and 


8*  = 8*  - 


8*‘ 

a 


cos  <56 w/2 1 


(64) 


6 = (9 


9 a c°s0vv/2rvv 


(65) 


Because  rw  - <5*  cos  <j>w  + y,  where  y is  the  inviscid  radius,  Eq.  (64)  may 
be  rearranged  to  give 

1 

8*  = 8*  + ( 8 * 2 + y2  sec2  <£w)  2 - y sec  <fiw  (66) 


For  the  final  correction,  the  value  6*  sec  d>  is  added  to  the  inviscid 

a w 

radius  in  order  that  no  correction  be  made  to  the  longitudinal  location. 


The  integrations  of  Eqs.  (62)  and  (63)  are  performed  numerically 
using  Gauss'  16-point  formula,  with  the  assumption  of  the  power- law 
velocity  distribution 

q/qc  = (z/S)1/N  (67) 
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and 


P/Pe  = 


VT 


(68) 


where 


T = T 


+ a 


(T  = 


TJ  q/qe  + [Te  - «(Ta 


TJ 


tw] 


(69) 


which  is  Crocco's  quadratic  temperature  distribution  if  a = 1.  However, 

as  shown  in  Ref.  12,  a value  of  a = 0 gives  a parabolic  distribution 

which  agrees  better  with  data  obtained  in  hypersonic  wind  tunnels  with 

water-cooled  walls.  The  same  distribution  is  obtained  if  T = T , 

w aw 

which  is  likely  to  be  the  case  for  planar,  flexible-plate  nozzles. 

Before  using  the  Gaussian  integration,  one  must  replace  the  values  of  z 
and  dz  with  S(q/qe)N  and  NS(q/qe)N  1 d(q/qg),  respectively,  in  order  to 
avoid  the  infinite  slope,  dq/dz,  when  q and  z equal  zero. 


The  value  of  the  compressible  skin  friction  coefficient,  C^,  in 
Eq.  (61)  is  assumed  to  be  related  to  an  incompressible  value,  Cf  , 

l 

by  a factor  F , introduced  by  Spalding  and  Chi,  Ref.  18, 


F 


C 


c, 


(70) 


and  is  related  to  an  incompressible  Reynolds  number,  R^  , which  is 

related  to  the  compressible  value,  R , by  a factor  F , 1 

9c  R<5 

Fns  %c  = V (71) 


The  factor  F , also  used  by  van  Driest,  Ref.  19,  is  given  by 
C r i i .-2 

Fc  =\_f  (p/pe)2  d <q/  qe) 


(72) 


which  uses  Eqs.  (68)  and  (69).  In  Refs.  18  and  19,  a value  of  a = 1 

was  implied,  but  Eq.  (72)  is  used  herein  with  a = 0 also,  to  give 

a "modified"  value  of  F . The  factor  F may  be  considered  to  be  the 

c c 

ratio  of  a reference  temperature  to  the  free-stream  temperature.  The 

factor  F , as  used  by  van  Driest,  is 

Rd 

FIlg  = Me/pw  (73) 
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The  compressible  momentum  thickness,  0 , upon  which  R^  is  based  is 
the  flat-plate  value 


- 


/('-*) 


_£1_  dz 


(74) 


because  the  values  of  and  F^  were  developed  to  correlate  flat- 
plate  data. 


The  equation  used  herein  for  incompressible  skin-friction  coef- 
ficient is  that  of  Ref.  20, 


cf.  = 


0.0773 


(log  R^  + 4.561)  (log  R^  - 0.546) 


(75) 


This  equation  is  believed  to  agree  with  experimental  data  slightly 
better  than  the  von  Karman-Schoenherr  equation. 


(0.242T 


(76) 


(log  1*0  + 1.1696)  (log  R^  + 0.3010) 

1 i 

at  high  Reynolds  numbers.  Also  as  shown  in  Ref.  20,  Eq.  (75)  agrees 
with  the  equation,  Ref.  21,  based  on  Coles'  law  of  the  wall  and  law  of 
the  wake, 

i_ 

* (2/Cf)2  = f'n  Rg  + 0.5  in  <Gf/2)  + kC  + 211  (77) 

i i 

if  H varies  as  shown  in  Fig.  8 from  about  0.41  at  R = 400  to  a maximum 

0 . 

of  0.5885  at  Ra  = 50,000  and  then  decreases  to  aboul:  0.49  at  R = 

10  . In  order  i:or  Eq.  (76)  to  agree  with  Eq.  (77),  IT  must  continually 

increase  with  increasing  R as  shown  in  Fig.  8.  The  data  shown  in  Fig. 

y i 

8 were  computed  by  Coles  in  Ref.  21  from  Wieghardt’s  flat  plate  data. 

Ref.  22.  A comparison  of  friction  coefficients  from  Eqs.  (75)  and  (76) 
is  shown  in  Fig.  9 together  with  Wieghardt's  values  as  recomputed  by 
Coles.  The  constants  k and  C are  0.41  and  5.0,  respectively.  The 
relationship  between  6^  and  6 is  obtained  from  the  logarithmic  velocity 
profile  by  neglecting  the  laminar  sublayer,  representing  the  wake  function 


by  a sine  distribution,  and  integrating  to  obtain 

1 

C, 


£1  - i±n  uM 

8 K \ 2 / 


(78) 
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and 

Q 

6_±  = ?!  - _il  (2  + 3.179  n + 1.5  n2)  (79) 

8 8 2k 


103  104  105  106  107 


R0j 

Figure  8.  Variation  of  wake  parameter,  n,  with 
Reynolds  number  (incompressible). 

The  value  of  N in  Eq.  (67)  is  assumed  to  be  a function  of  Reynolds 
number  based  on  the  actual  boundary  thickness,  not  corrected  by  F , 
and  is  evaluated  through  the  use  of  the  kinematic  momentum  thickness 

0-£) dI  (80) 

from  which 

dk/8  = N/(N2  + 3N  + 2)  (81) 

or 

N = 1 | A.  - 3 + [A.  (A.  - 6\  + 1 I"  ( (82) 

K K ) J j 
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Figure  9.  Variation  of  skin-friction  coefficient  with 
Reynolds  number  (incompressible). 

The  value  of  0 /6  is  obtained  from  Eq.  (79),  where  the  value  of  II  is 
evaluated  from  Eqs.  (75)  and  (77)  with  9^  used  instead  of  6^.  The  re- 
sulting variation  of  N with  is  shown  in  Fig.  10. 


Two  options  contained  in  the  program  subroutine  for  the  boundary 
layer  utilize  Coles'  law  of  corresponding  stations  (Ref.  23), 


C(.  R0: 


T 1* 

f1, 


(83) 


If  /Cj  = is  calculated  from  Eq.  (72)  for  a = 0 or  a - 1,  then  one 
option  gives 


f*8  = TwMe/(FcTe^w) 

The  second  option  divdes  Eq.  (83)  into  the  two  parts, 

<VCr  = Tw^TcPw 


(84) 


(85) 


( 
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and 


R0/R(9  = Me/f*c 

1 C 


(86) 


where  \i  is  evaluated  at  the  temperature 

Tc  = Tw  + 17.2  (Cf/2)5'  «(Taw  - Tw)  - 305(Cf  /2)  [«(Taw 

l l L_ 


Tw)  + Tw  - Te] 

(87) 


Figure  10.  Variation  of  velocity  profile  exponent  with  Reynolds 
number  based  on  boundary-layer  thickness. 


Still  another  option  defines  the  incompressible  skin-friction 
coefficient  as 


Cf  = 0.0888 

i (Jog  Rg  + 4.622 1)  (log  Rg  - 1.4402) 
i v i 

where 

and  F is  calculated  from  Eq.  (72). 
c 


(88) 


(89) 


30 


AEDC-TR-78-63 


The  wall  temperature  in  the  above  equations  can  be  the  adiabatic 
wall  temperature  or  can  be  allowed  to  vary  between  a throat  wall  tem- 
perature, T , and  a nozzle-exit  wall  temperature,  T , both  of  which 
WT  WD 

are  input  to  the  program.  Two  options  are  available  for  the  variation 

of  wall  temperature,  * 


T 

W 


m 


(90) 


where  m can  be  1/2  or  1,  A/A*  is  the  area  ratio  corresponding  to  local 

Mach  number,  and  A /A*  is  the  area  ratio  corresponding  to  the  design  Mach 

number  at  the  nozzle  exit.  Equation  (90)  is  used  in  lieu  of  more 

accurate  values  and  approximates  the  way  the  heat  transfer  decreases  as 

the  Mach  number  increases  from  1 at  the  throat  to  the  design  value  at 

the  exit.  For  a water-cooled  throat,  the  value  of  T can  also  be 

WT 

calculated  by  the  program, 


h T + Q (T  - is) 

T — « aw  ^ wn 

l w “ 

T h + Q 


(91) 


where  h is  the  airside  heat-transfer  coefficient  at  the  throat  as 
a 

calculated  by  Reynolds  analogy  from  the  throat  skin-friction  coef- 
ficient 

K = P,:%C  pP72/3  C/2 


(92) 


with  a constant  specific  heat  based  on  the  thermochemical  BTU 


C 


y1K 


(93) 


p (y -))  777.64885 

and  Q is  an  input  which  is  a function  of  the  properties  of  the  throat 

material,  the  cooling  water,  and  the  geometry  and  would  be  a constant  if 

the  properties  were  constant.  The  assumption  is  made  that  the  bulk 

2 /3 

temperature  of  the  water  is  15°F  less  than  T and  that  P is  the 

w r 

square  of  the  recovery  factor  used  to  obtain  ?he  adiabatic  wall  tempera- 


ture, T 


aw 
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For  the  integration  of  Eq.  (61),  the  values  of  x,  y,  dy/dx,  M, 

and  dM/dx  are  obtained  from  the  inviscid  contour  at  unevenly  spaced 

points  as  a result  of  the  characteristics  solution.  With  the  inputs  of 

stagnation  pressure  and  temperature,  gas  constant,  and  recovery  factor, 

the  unit  Reynolds  number  and  static  and  adiabatic  wall  temperatures  can 

be  calculated  at  the  same  points  as  functions  of  Mach  number  with 

Sutherland’s  equation  used  for  viscosity.  With  the  inputs  of  T and 

WT 

T , the  wall  temperatures  can  also  be  calculated  as  functions  of  Mach 
WD 

number,  although  T may  need  to  be  obtained  by  interation  if  the 
WT 

option  to  input  a value  of  Q is  exercised.  Sutherland’s  equation  is 
also  used  with  wall  temperatures  to  obtain  the  viscosities  at  the  wall. 
For  any  static  temperature  below  the  Sutherland  temperature,  198.72°R  as 
used  herein,  the  viscosity  variation  with  temperature  is  assumed  to  be 
linear. 


The  integration  of  Eq.  (61)  is  started  at  the  throat  where  it  is 
assumed  that  d0/dx  = 0 in  order  to  obtain  a value  of  6.  Iteration  is 
involved  at  each  point  because  is  a function  of  Reynolds  number  based 

upon  0,  and  the  relations  0/<5  and  <$*/<$  depend  upon  the  value  of  N, 
which  is  a function  of  Reynolds  number  based  upon  6.  After  all  itera- 
tions converge  within  specified  tolerances,  the  value  of  S*  is  calculated 

cl 

from  the  value  of  <5*,  and  the  values  of  0 and  d0/dx  are  used  in  the 
calculation  at  subsequent  points.  The  values  of  d0/dx  are  integrated 
numerically  to  obtain  the  increment  in  0 to  be  added  to  a previously 
determined  value  of  0.  The  trapezoidal  rule  is  used  to  determine  the 
second  point,  the  parabolic  rule  for  the  third  point,  and  cubic  integra- 
tion for  the  fourth  and  subsequent  points. 


For  convenience,  Eq.  (61)  may  be  written  6^  + 0P  = Q.  The  general 
integration  for  the  nth  point  is 


0 = $, 


-3  6n-3 


-2  C 


Gn— 1 Cl 


G d 

n n 


(94) 
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where  the  G’s  are  functions  of  the  spacings  s,  t,  and  u between  the 
points  and  are  given  in  Appendix  B.  Except  for  0^  and  6',  the  other 
values  in  Eq.  (94)  are  known  from  previous  calculations.  Inasmuch  as 

K = Qn  * P„  (95) 

Eq.  (92)  can  be  rearranged  to  give 


(d  „ + G „ 6 ' , + G „ 6 ' + G , $'  , + G o ) 

n—3 n—3  n—3 n — 2 n— 2 n—  1 n—  1 n n/ 


(96) 


U + G B ) 

n n 


After  convergence  of  the  iterations,  Eq.  (95)  is  used  to  obtain  d0/dx. 

Inasmuch  as  Eq.  (94)  c 

0 „ is  calculated  by 

n-2  J 


Inasmuch  as  Eq.  (94)  depends  upon  the  knowledge  of  0 the  value  of 


0 r,  = $ , + K 0 , -t-  F n Q'  c,  + V , 6 I + F 0 

n-2  n—3  n-.i  n-3  n-2  n-2  n-1  n— 1 n n 


(97) 


which  becomes  the  0n_3  for  the  next  point  to  be  calculated.  The  values 
of  the  F's  are  also  given  in  Appendix  B.  The  values  of  and  6^  obtained 
from  Eq.  (95)  are  used  in  the  calculation  of  S*  and  <5*  instead  of  the 
initial  values  obtained  by  the  trapezoidal  or  parabolic  integration. 


The  success  of  the  above  type  of  integration  depends  upon  the 
spacing  of  the  points.  The  values  of  the  increments  s,  t,  and  u must 
be  of  the  same  order  of  magnitude,  although  t is  usually  larger  than  s 
and  smaller  than  u if  the  parameters  involved  in  the  characteristics 
solution  are  selected  with  care. 


After  the  values  of  6*  sec  <f>  are  calculated,  the  values  of 

a w 

d(6*  sec  <j)  ) /dx  are  obtained  by  parabolic  differentiation  and  added  to 
a w 

the  inviscid  values  of  dy/dx  to  obtain  drw/dx.  This  procedure  is  believed 

to  be  more  accurate  than  differentiating  the  value  (<$*  sec  <j>  + y) 

ct  W 

because  dy/dx  is  obtained  directly  from  the  characteristics  solution  and 
not  by  differentiating  y with  respect  to  x. 


In  general,  the  boundary-layer  correction  at  the  throat  will  have 
a gradient  such  that  the  viscid  throat  will  be  slightly  upstream  of  the 
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inviscid  throat.  This  displacement  and  the  value  of  the  viscid  curva- 
ture at  the  throat  are  calculated  using  the  assumption  that  both  the 
inviscid  throat  and  the  boundary-layer  correction  are  parabolic  in 
shape. 


6.0  DESCRIPTION  OF  PROGRAM 

The  computer  program  is  written  in  Fortran  IV  for  use  with  the  IBM 
370/165  Computer.  The  program  consists  of  a main  section,  three  functions, 
and  16  subroutines  arranged  so  that  the  program  can  be  overlaid  to 
conserve  computer  storage.  The  four  overlays  consist  of  AXIAL,  CONIC, 
SORCE,  and  TORIC;  PERFC;  BOUND  and  HEAT;  SPLIND  and  XYZ.  The  input 
data  cards  are  described  in  Appendix  C,  and  a listing  of  the  program  is 
given  in  Appendix  D. 

Program  MAIN.  MAIN  calls  for  the  various  overlays.  The  title  card  is 
read  in  with  the  designation  as  to  whether  the  nozzle  is  planar  or 
axisymmetric.  A card  defining  the  gas  properties  and  a few  pertinent 
dimensions  is  then  read  in.  The  first  subroutine  called  is  AXIAL,  in 
which  the  upstream  axial  distribution  is  defined.  PERFC  is  called  to 
calculate  the  upstream  contour.  AXIAL  is  recalled  to  define  the  downstream 
distribution,  and  PERFC  is  recalled  to  calculate  the  downstream  contour. 
BOUND  is  called  to  calculate  the  boundary- layer  growth.  SPLIND  is 
called  to  determine  the  coefficients  of  cubic  equations  to  fit  the 
unevenly  spaced  points  along  the  contour,  and  XYZ  uses  these  coeffici- 
ents to  obtain  ordinates  at  evenly  spaced  points  along  the  axis  or,  in 
the  case  of  the  planar  nozzle,  at  discrete  points  along  the  surface  of 
the  flexible  plate  at  which  the  supporting  jacks  are  located. 

Subroutine  AXIAL.  In  this  subroutine,  cards  are  read  in  with  the 
parameters  used  to  define  the  axial  distributions  of  velocity  and/or 
Mach  number  and  with  integers  which  define  the  number  and  spacing  of  the 
points  on  the  axis  and  on  the  key  characteristics  and  the  sequence  of 
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subsequent  calculations.  If  the  throat  characteristic  is  called  for, 
the  upstream  end  of  the  upstream  distribution  starts  at  the  intersection 
of  the  throat  characteristic  and  the  axis.  An  option  can  be  exercised 
to  not  use  the  throat  characteristic  and  thereby  start  the  distribution 
at  the  point  where  M = 1 . This  option  would  normally  be  used  for  a 
nozzle  with  a large  throat  radius  of  curvature,  e.g.  a planar  nozzle,  or 
if  it  were  desired  to  repeat  a calculation  as  in  Ref.  13.  Another  option 
is  to  avoid  a radial  flow  section  altogether  by  using  a polynomial  dis- 
tribution from  the  throat  to  the  beginning  of  the  test  cone  or  rhombus. 
Other  options  will  be  described  in  Appendix  C when  the  input  cards  are 
discussed. 

Subroutine  BOUND.  This  subroutine  is  used  to  calculate  the  turbulent 
boundary-layer  correction  to  the  inviscid  contour.  The  stagnation 
conditions  are  input,  as  are  the  parameters  to  describe  the  wall  tem- 
perature distribution,  the  temperature  distribution  in  the  boundary 
layer,  and  the  factors  relating  the  compressible  skin-friction  coefficients 
to  incompressible  values. 

Subroutine  CONIC.  This  subroutine  is  used  within  AXIAL  to  give  the 
derivatives  of  Mach  number  with  respect  to  r/r^  in  radial  flow  from  Eq. 
(29). 

Function  CUBIC.  This  subroutine  is  used  to  obtain  the  smallest  positive 
root  of  a cubic  equation. 

Function  FMV.  This  subroutine  determines  the  Mach  number  for  a given 
Prandtl-Meyer  angle. 

Subroutine  FVDGE.  This  subroutine  is  used  within  PERFC  in  conjunction 
with  NEO  to  smooth  the  inviscid  coordinates  as  desired. 
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Subroutine  HEAT.  This  subroutine  is  a dummy  called  by  BOUND  but  is 
included  so  that  with  a more  elaborate  subroutine  a heat  balance  can  be 
made  to  determine  the  wall  temperature  if  the  material  conductivity  is 
specified  and  the  cooling  water  passage  geometry  and  quantity  of  flow 
are  specified. 

Subroutine  NEO.  This  subroutine  is  used  with  PERFC  in  conjunction  with 
FVDGE  to  smooth  the  inviscid  coordinates  as  desired  by  modifying  the 
ordinate  such  that  the  second  derivative  is  more  nearly  linear  after 
smoothing  than  beforehand. 

Subroutine  OFELD.  This  subroutine  is  used  within  PERFC  to  calculate  the 
properties  at  the  intersection  of  a left-  and  a right-running  char- 
acteristic . 

Subroutine  OREZ.  This  subroutine  is  used  to  make  all  values  of  an  array 
equal  to  zero  prior  to  a new  calculation. 

Subroutine  PERFC.  In  this  subroutine,  the  properties  along  the  key 
characteristics  are  first  calculated  to  go  with  those  along  the  axis. 

The  intermediate  characteristics  are  then  calculated  and  the  contour 
points  obtained  by  integrating  the  mass  flow  crossing  each  character- 
istic. If  desired,  certain  designated  intermediate  characteristics  may 
be  printed  out.  If  smoothing  of  the  ordinates  is  desired,  the  inputs 
associated  with  the  smoothing  are  read  and  the  smoothing  applied. 
Inasmuch  as  the  wall  angle  is  interpolated  from  mass-flow  considera- 
tions, independently  of  the  coordinates,  the  wall  slopes  are  integrated 
from  the  inflection  point  toward  the  throat  for  comparison  with  the 
interpolated  ordinates.  Parabolic  integration  is  used  for  this  purpose 
as  well  as  for  the  mass  flow.  Also  calculated  for  comparison  are  the 
ordinates  of  a parabola  and  a hyperbola  which  have  the  same  radius 
ratio,  R,  inasmuch  as  the  transonic  solution  should  be  equally  applic- 
able to  these  shapes  for  the  number  of  terms  retained  in  the  series. 
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Eqs.  (2)  and  (3).  Finally,  the  scale  factor,  the  value  of  in  inches, 
is  applied  to  obtain  the  inviscid  coordinates  in  inches,  and  the  abscis- 
sas are  also  shifted  as  desired. 

Subroutine  PLATE.  This  subroutine  is  also  a dummy  to  allow  additional 
calculations  to  be  made  for  a flexible  plate  contour  after  the  coordinates 
at  each  jack  location  have  been  interpolated  by  SPLIND  and  XYZ. 

Subroutine  SCOND.  This  subroutine  is  used  in  BOUND,  NEO,  and  PERFC  for 
parabolic  differentiation  of  coordinates  to  obtain  the  slopes,  or  of 
slopes  and  abscissas  to  obtain  second  derivatives.  Three  points  at  a 
time  are  used  to  establish  the  parabola,  and  the  slope  is  obtained  at 
the  center  point.  The  slopes  at  the  first  and  last  point  are  also  obtained, 
but  with  less  accuracy. 

Subroutine  SORCE.  This  subroutine  is  used  within  AXIAL  to  give  the 
derivatives  of  velocity  ratio,  W,  with  respect  to  r/r^  in  radial  flow 
from  Eq.  (30). 

Subroutine  SPLIND.  This  subroutine  computes  the  coefficients  of  cubic 
equations  that  fit  the  unevenly  spaced  points  obtained  from  the  char- 
acteristics solution.  The  initial  and  final  slopes  are  used  together 
with  the  coordinates  to  determine  the  cubic  coefficients. 

Function  TORIC.  If  the  velocity  gradient  is  known  at  the  axial  point 
where  M - 1 , this  function  gives  the  value  of  radius  ratio,  R,  which 
would  produce  such  a gradient  from  the  transonic  theory  used.  This 
function  is  used  in  AXIAL  if  the  option  is  exercised  of  specifying  the 
Mach  number  at  point  F but  not  specifying  the  value  of  R.  It  is  also 
used  to  determine  the  value  of  R for  calculating  streamlines  other  than 
the  contour  itself. 
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Subroutine  TRANS.  This  subroutine  calculates  the  throat  characteristic 
from  the  transonic  theory.  In  AXIAL,  at  the  point  where  the  throat 
characteristic  intersects  the  axis,  the  derivatives  of  velocity  and 
Mach  number  are  used  to  determine  the  coefficients  of  the  polynomial 
describing  the  axial  distribution.  In  PERFC,  the  flow  properties  along 
this  key  characteristic  are  used  at  the  number  of  points  specified  as 
one  plus  a submultiple  of  240. 

Subroutine  TWIXT.  This  subroutine  is  used  in  PERFC  and  BOUND  to  inter- 
polate the  ordinate  and  other  properties  at  a specified  point.  A four- 
point  Lagrangian  interpolation  is  used  with  two  points  on  either  side  of 
the  specified  point. 

Subroutine  XYZ.  This  subroutine  uses  the  cubic  coefficients  obtained  in 
SPLIND  for  calculating  the  ordinate,  slope,  and  second  derivative  at 
specified  values  of  the  abscissa  read  as  inputs  in  the  MAIN  section  of 
the  program.  The  points  may  be  at  even  intervals  in  the  abscissa  or  at 
arbitrary  uneven  intervals.  The  points  may  be  the  same  points  as  those 
input  to  SPLIND  if  a comparison  is  desired  between  the  derivatives  so 
determined  and  those  obtained  elsewhere  in  the  program. 


7.0  SAMPLE  NOZZLE  DESIGN 

The  design  of  a Mach  4 axisymmetric  nozzle  is  selected  to  illus- 
trate use  of  the  computer  program.  The  input  cards  for  the  sample 
design  are  given  in  Table  1.  An  axisymmetric  nozzle  is  specified  by 
leaving  JD  blank  (JD  = 0)  on  Card  1 . Leaving  SFOA  blank  on  Card  2 
specifies  that  the  upstream  axial  velocity  distribution  is  not  a fifth- 
degree  polynomial.  Leaving  FMACH  blank  on  Card  3 specifies  that  the 
value  of  FMACH  will  be  computed  by  the  program,  and  leaving  IX  blank  on 
Card  4 specifies  a cubic  distribution.  The  computed  value  of  FMACH  is 
3.0821543,  which  is  greater  than  the  value  of  BMACH  specified  on  Card  3; 
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therefore,  BMACH  also  becomes  3.0821543,  The  negative  value  of  SF 
means  that  the  inviscid  exit  radius  of  the  nozzle  is  12.25  in.  The 
value  of  PP  means  that  the  inflection  point  will  be  60  in.  downstream  of 
an  arbitrary  point.  Leaving  XC  blank  specifies  the  downstream  axial 
distribution  will  be  a fourth-degree  polynomial,  and  the  positive  value 
of  IN  on  Card  4 specifies  a Mach  number  distribution.  The  values  o.f  MX, 
NT,  MD,  ND,  NF,  and  LR  determine  the  number  of  points  on  the  key  char- 
acteristics and  are  all  odd  numbers  because  each  includes  both  end 
points  of  each  distribution  which  is  divided  into  an  even  number  of 
increments.  The  negative  value  of  NF  specifies  the  contour  points  to  be 
smoothed  according  to  Card  5,  and  the  negative  value  of  LR  specifies 
that  the  transonic  distribution  be  printed  as  the  first  page  of  the 
sample  output.  The  NX  value  of  13  specifies  the  spacing  of  the  axial 
points  between  points  I and  E to  be  close  together  near  Point  I with  the 
last  increment  about  3.17  times  as  large  as  the  first  increment, 

(20^'^  - 19^'^).  The  JC  value  of  10  specifies  that  every  10th  left- 
running characteristic  will  be  printed  for  the  upstream  contour  together 
with  the  right-running  characteristic  through  Point  E.  The  smoothing 
integers  on  Card  5 are  used  to  control  the  smoothing  subroutine. 


Table  1.  Input  Cards  for  Sample  Design 


CARO  1 

I TLE  jo 

M A C H 4 
CARO  2 


GAM 

AH 

ZO 

RO 

vise 

VISM 

SFOA 

XBL 

1 .A 

1716.563 

1. 

0,896 

2.26968E-8 

198.72 

1000. 

CARO  3 

8.67 

6. 

3. 

4. 

-12.25 

60. 

ETAO 

RC 

FMACH 

BMACH 

CMC 

SF 

PP 

XC 

CARD  4 

MT 

MT 

IX  IN 

IQ 

M0 

ND 

NF  MP  MQ 

J8  JX 

JC 

IT 

LR 

NX 

41 

21 

10 

41 

49 

-61 

1 

10 

-21 

13 

CARO  5 

NOUP  NPCT 

N0D0 

50 

85 

50 

CARO  6 

PPQ 

TO 

TWT 

twat 

QFUN 

ALPH 

IHT 

IR 

10 

LV 

200. 

1638. 

900. 

540. 

.38 

1 

5 

CARO  7 

XST 

XLOW 

XEND 

X1NC 

BJ 

XMIO 

XINC2 

CM 

1000. 

46. 

172. 

2. 
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For  the  boundary- layer  calculations  for  stagnation  conditions  of 
200  psia  and  1638R,  the  value  of  QFUN  of  0.38  overrides  the  specified 
throat  temperature  of  900R  and  produces  the  throat  temperature  of  866R 
as  indicated  on  the  output.  Leaving  ALPH  blank  causes  the  temperature 
distribution  in  the  boundary  to  be  parabolic  for  both  the  calculation  of 
the  boundary-layer  parameters  and  the  calculation  of  the  reference 
temperature.  Leaving  IHT  blank  causes  the  longitudinal  distribution  of 
wall  temperature  to  vary  as  a square-root  function  of  the  area  ratio 
corresponding  to  the  local  Mach  number;  m = 1/2  in  Eq.  (90).  Leaving  1R 
blank  causes  the  transformation  from  incompressible  to  compressible 
values  of  skin  friction  coefficient  to  be  calculated  using  a modified 
Spalding-Chi  reference  temperature  and  a Van  Driest  reference  Reynolds 
number.  Specifying  ID  = 1 takes  into  account  that  the  boundary-layer 
thickness  is  not  negligible  relative  to  the  radius  of  the  inviscid  core, 
and  its  positive  value  causes  the  boundary-layer  calculations  to  be 
printed  for  the  first  and  last  iteration;  the  number  of  iterations  is 
specified  by  the  absolute  value  of  LV  (LV  = 5 for  the  example). 

For  the  final  coordinates,  interpolated  at  even  intervals,  speci- 
fying XST  = 1,000  (the  same  value  as  XBL  on  Card  2)  keeps  the  X- 
coordinates  consistent  with  the  location  of  the  inviscid  inflection 
point  at  60  in.  downstream  of  an  arbitrary  point. 

The  main  parameters  selected  for  the  sample  problem  were  the  inflec- 
tion angle,  the  curvature  ratio,  and  the  Mach  number  at  the  point  B. 

The  selected  values  of  8.67  deg,  6,  and  3.0821543  (computed),  respectively, 
are  not  necessarily  optimum  but  result  in  a nozzle  with  an  upstream 
length  of  about  14  in.  from  the  throat  to  the  inflection  point,  a 
length  of  about  31  in.  from  the  inflection  point  to  point  J (see  Fig.  3), 
and  nearly  120  in.  from  the  inflection  point  to  the  theoretical  end 
of  the  nozzle.  Such  downstream  lengths  are  probably  conservative  and 
could  be  reduced  to  some  degree  although  experience  with  Mach  4 axisym- 
metric  nozzles  is  very  limited. 
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The  number  of  points  used  on  the  key  characteristics  should  be  con- 
sistent with  the  number  of  points  used  in  the  axial  distributions  in 
order  that  the  individual  nets  in  the  characteristics  network  should  not 
become  too  elongated  (e.g.,  see  Fig.  7).  The  spacing  of  the  points  on 
the  final  contour  should  also  progress  in  an  orderly  manner.  Several 
trials  may  be  necessary  to  optimize  the  various  inputs  to  the  program. 

8.0  SUMMARY 

A method  and  computer  program  have  been  presented  for  the  aero- 
dynamic design  of  planar  and  axisymmetric  supersonic  wind  tunnel  noz- 
zles. The  method  uses  the  well-known  analytical  solution  for  radial 
source  flow  and  connects  this  radial  flow  region  to  the  throat  and  test 
section  regions  via  the  method  of  characteristics.  Continuous  curvature 
over  the  entire  contour  is  attained  by  specifying  polynomial  distribut- 
ions of  the  centerline  velocity  or  Mach  number  and  matching  various 
derivatives  of  these  polynomials  at  the  extremities  of  the  radial  flow 
region,  the  test  section,  and  a throat  characteristic.  The  inviscid 
contour  is  obtained  by  initiating  characteristics  outward  from  the 
centerline  and  then  integrating  the  mass  flux  along  these  character- 
istics to  compute  the  inviscid  nozzle  boundary.  The  final  wall  contour 
is  then  obtained  by  adding  to  the  inviscid  coordinates  a boundary- 
layer  correction  based  on  displacement  thickness  computed  by  integrating 
the  von  Karmdn  momentum  equation.  To  illustrate  the  method,  a sample 
design  calculation  was  presented  along  with  the  associated  input  and 
output  data.  A listing  of  the  computer  program  and  an  input  descrip- 
tion are  included. 
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When  Eq.  (5)  is  substituted  into  Eqs.  (2) , (3)  and  (4),  Eq.  (2) 
can  be  written  as: 


u = 1 


GR  GS  , 

IT  + ... 


2(3  - a)S  g2  g3 


-.2  2 „„  ,3  3 

+ c1  - f-  - + •■•)  + Hr GK  + **• 


2 U , „ y^  - U„„  y2 


+ 2-  + ^ 

2S  + „2 


22  ' . U63  y6  - B43  ^ + U23  ^ 

+ ~ 


2 2 .2 


3a  - (10  - 3a)y 
4S 


)+... 


(A-l ) 


where  the  coefficients  are  written  in  the  terminology  of  the  program 
and  x and  y are  normalized  with  respect  to  y . For  planar  flow. 


GR  = 

(15  - y)/270 

(A-2) 

GS  = 

(782  Y2  + 3507  y + 7767) /2721 60 

(A- 3) 

GT  = 

(134  Y2  + 429  Y + 123)/4320 

(A-4) 

GV  = 

5 Y/18 

(A-5) 

GK  = 

(2y2  - 33y  + 9) / 24 

(A-6) 

U42  = 

(Y  + 6)/18 

(A-7) 

U22  = 

' Y/9 

(A-8) 
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U63  = (362  Y2  + 1449  y + 3177 ) / 12960  (A-9) 

U43  = (194  y2  + 549  y - 63)/2592  (A-10) 

U23  = (854  y2  + 807  y + 279)/12960  (A-li) 

Up2  = (26  y2  + 27  Y + 237 )/288  (A-12) 

UpQ  = (26  y2  + 51  Y - 27)/ 144  (A -13) 

For  axisymmetric  flow, 

GR  - (15  - 10  y)/288  (A-14) 

GS  = (2708  Y2  + 2079  Y + 2115) /82944  (A-15) 

‘ GT  = (92  y2  + 180  Y - 9) /1 1 52  (A-16) 

GV  = (Y  + 1)/8  (A-17) 

GK  = (4  Y2  - 57  Y + 27)/48  (A-18) 

U42  = (2  y + 9)/24  (A-19) 

U22  = (4  y + 3>/24  (A-20) 

U63  = (556  y2  + 1737  Y + 3069)/10368  (A-21) 

U43  = (388  Y2  + 777  Y + 153)/2304  (A-22) 

U23  = (304  Y2  + 255  Y - 54) /I  728  (A-23) 

UP2  = (52  Y2  + 51  Y + 327) /384  (A-24) 

Up()  = (52  y2  + 75  Y ~ 9)7192  (A-25) 


The  first  part  of  Eq.  (A-1),  which  is  independent  of  y,  can  be  recognized 
as  Eq.  (11)  for  planar  flow  or  Eq.  (12)  for  axisymmetric  flow  inasmuch 
as  x and  y are  normalized  here  with  the  value  of  y . 
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In  a similar  manner,  Eq.  (3)  can  be  written  as 


y \ (y2  - 1)  v42  y v22  y + v02 

AS  | 2(3  - o)S  g2 

6 4 2 

V,  _ y - V y + V y - V 
63  y 43  y 23  y 03 

■ ~ +. . . 

S 


+ Ax  1 + 


(2y  + 12  - 3a)y  - 2y  - 1 .50 
(9  - 3a) S 


. 6 U63  - 4 U43  ^ + 2 U23 

S2 


,2  2/ 

+ V"  (2  + — 


4 U o y - 2 UT 


Ai3  / 3a  - 10y  - 3a  y 
3 V 4 


..)  +...  j 


For  planar  flow, 


V42  = (22  y + 75) /360 

V22  = (1°  y + 1 5)/ 1 08 

VQ2  = (34  y - 75) /1 080 

V63  = (6574  y2  + 26481  y + 40059)/181440 

V43  = (2254  y2  + 6153  y + 2979)/25920 

V23  = (5026  y2  + 7551  y - 4923)/77760 

VQ3  = (7570  y2  + 3087  y + 231 57) /544320 


(A-26) 

(A-27) 
(A— 28) 
(A-29) 
(A-30) 
(A-31 ) 
(A-32) 
(A-33) 
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For  axisymmetric  flow> 


V42  = 

(Y  + 3)  / 9 

(A-34) 

V22  = 

(20  y + 27)/96 

(A-35) 

V02  = 

(28  y - 1 5 ) / 288 

(A~36) 

V63  = 

(6836  y2  + 23031  y + 30627)/82944 

(A-37) 

V43 

(3380  y2  + 7551  y + 3771 ) / 1 3824 

(A-38) 

V23  = 

(3424  y2  + 4071  y ~ 972) /1 3824 

(A-39) 

< 

o 

LO 

II 

(7100  y2  + 2151  Y + 2169)/82944 

(A-40) 
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If  a curve  through  four  points  with  ordinates  a,  b,  c,  and  d, 
spaced  at  uneven  increments  in  abscissa,  s,  t,  and  u,  is  defined 
by  a cubic  equation,  the  area  under  each  section  of  the  curve  can 
be  found  in  the  following  manner: 


Area  , 
a-b 


F 

as 


a + 


b 


+ F c + 
cs 


(B — 1 ) 


Area. 


b-c 


= F 


' at 


+ F,  b 
bt 


+ F 


ct 


c + 


Fdt  d 


(B-2) 


Area 


Area 


c-d 

total 


F a + F,  b + 
au  bu 


= G a + G b + 
a b 


F c + F , d 
cu  du 


G c + G , d 
c • d 


(B-3) 

(B-4) 


where 


■p  JL  s2(3s  + 4t  + 2u) 

as  2 1 2 (s  + t)(s  + t + u) 


F = ~ + s^(s  + 4t  + 2u) 
bs  2 12  t(t  + u) 


3 

_ s (s  + 2t  + 2u) 
cs  12tu(s  + t) 

■p  = S3(s  + 2t) 

ds  1 2 (s  + t + u) (t  + u)u 

-p,  _ t3(t  + 2u) 

at  1 2s  (s  + t)  (s  + t + u) 

F _ Jt  t^(t  + 2u  - 2s) 
bt  2 1 2s (t  + u) 

F * 1 t2  (2s  + t -2u) 
ct  2 12u(s  + t) 


(B-5) 

(B-6) 

(B-7) 

(B-8) 

(B-9) 

(B-10) 

(B-1 1 ) 
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t (2s  + t) 


dt  ~ 12u(t  + u)  (s  + t + u) 


. uJ(2t  + u) 


au 


1 2s  (s  + t)  (s  + t + u) 


u (2s  + 2t  + u) 
bu  12st(t  + u) 


u u (2s  + 4t  + u) 
Fcu  " 2 I2t(s  + t) 


_ u u (2s  + 4t  + 3u) 

11  du  " ~2  ~ 1 2 (t  + u)(s  + t + u) 


G = F + F + F 
a as  at  au 


G,  = F.  + F,  . + F, 
b bs  bt  bu 


G = F + F + F 
c cs  ct  cu 


G , = F,  + F..  + F, 
d ds  dt  du 


If  all  increments  are  equal,  then 


= t = u = h 


Fj  = -F  = -F, . = F = h/24 
ds  at  dt  au 


F - F,  = -5h/24 
cs  bu 


(B-1 2) 

(B-13) 

(B-1 4) 

(B-15) 

(B-1 6) 

(B— 17) 

(B-18) 

(B-19) 

(B-20) 

(B— 21 ) 
(B— 22) 

(B-23) 
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(B-24) 


F - F 
as  du 

= 9h/24 

(B-25) 

F,  = F 
bt  ct 

- 1 3h/24 

(B-26) 

G = G , = 
a d 

3h/8 

(B-27) 

G,  = G = 

K o 

9h/8 

(B-28) 

The  values  of  G’s  in  Eq.  (96)  correspond  to  those  in  Eq.  (B-4) . 
The  value  of  F's  in  Eq.  (97)  correspond  to  those  in  Eq.  (B-1). 
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APPENDIX  C 
INPUT  DATA  CARDS 


Input 
Card  1 
ITLE 
„ JD 


Card  2 
GAM 
AR 
ZO 


RO 

vise 

VISM 


SFOA 


Columns 


2-12  Title 

14-15  Blank  (0)  for  axisymmetric  contour, 

-1  for  planar. 


1-10 

11-20 

21-30 


31-40 

41-50 

51-60 


61-70 


Specific  heat  ratio. 

2 2 

Gas  constant,  ft  /sec  R. 

Compressibility  factor  for  an  axisym- 
metric nozzle,  constant  for  entire 
contour.  Or,  for  a planar  nozzle,  ZO 
is  half  the  distance  (in.)  between  the 
parallel  walls,  and  the  compressibility 
factor  is  one. 


Turbulent  boundary- layer  recovery  factor. 
Constant  in  viscosity  law. 


Constant  in  viscosity  law.  If  VISM  is 
equal  to  or  less  than  one, 

y = VISC*  TVISM  lb-sec/ft2 
If  VISM  is  greater  than  one. 


VISC*  T 


1.5 


T + VISM 


Ib-sec/ft  . If 


T is  greater  than  VISM, 


y 


Vise*  T 
2 VISM1/2 


; T < VISM. 


Used  for  nozzle  with  radial  flow  region 
if  5th-deg  axial  velocity  distribution 
is  desired.  If  positive,  the  distance, 
in  inches,  from  the  throat  to  Point  A 
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XBL 

Card  3 
ETAD 


RC 


FMACH 


71-80 


1-10 


1 1-20 


21-30 


on  the  characteristic  diagram.  If  nega- 
tive, absolute  value  is  distance  from  the 
throat  to  Point  G.  If  Blank,  3rd-  or  4th- 
deg  distribution  is  used  depending  on  value 
of  IX  on  Card  4. 

Station  (in.)  where  interpolation  is 
desired  (e.g.,  the,  end  of  a truncated 
nozzle).  If  XBL=1000.,  the  spline  fit 
subroutines  are  used  to  obtain  values  at 
increments  evenly  spaced  in  length. 


Inflection  angle  in  degrees  if  radial  flow 
region  is  desired.  Two  characteristic 
solutions  are  obtained,  one  upstream  and 
one  downstream  of  Point  A.  If  ETAD  = 60., 
the  entire  centerline  velocity  distribution 
is  specified  and  only  one  solution  is 
obtained  and  the  inflection  point  must  be 
interpolated.  If  ETAD  = 60 . , IQ  = 1 , IX  = 0, 
on  Card  4. 

Ratio  of  throat  radius  of  curvature  to 
throat  radius.  Must  be  given  if  ETAD  = 60. 
or  FMACH  =0.  If  FMACH  is  given,  RC  is 
calculated.  If  LR  = 0,  IX  = 0 gives  third- 
deg  equation  between  Mach  1 and  EMACH, 
matching  first  and  second  derivations  at 
each  end.  If  LR  =f  0,  the  value  of  RC  found 
for  LR  = 0 is  used  with  given  value  of  FMACH 
to  define  a fourth-deg  equation.  If  IX  = ±1 
and  FMACH  is  given,  RC  is  calculated  to 
define  a fourth-deg  equation.  If  LR  ^ 0, 
a new  value  of  FMACH  is  found,  compatible 
with  the  value  of  RC  calculated  for  LR  = 0. 

Mach  number  at  Point  F if  ETAD  60.  Nega- 
tive value  specifies  Prandtl-Meyer  angle 
at  Point  F as  j FMACH | *ETAD  (usually  around 
-7).  If  FMACH  and  RC  are  given,  IX  = 0 
and  4th-deg  distribution  is  used.  If 
FMACH  = 0 and  IX  - 0,  a 3rd-deg  distribu- 
tion is  used.  If  FMACH  = 0.  and  IX  = ±1, 
a 4th-deg  distribution  is  used.  FMACH  is 
calculated  if  not  given.  If  ETAD  = 60. , 

Point  F is  not  defined. 
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BMACH 

CMC 

SF 


PP 

XC 


Card  4 
MT 


31-40  Mach  No.  at  Point  B if  ETAD  4 60. 

41-50  Absolute  value  is  design  Mach  No.  at  Point 

C.  If  ETAD  4 60,  positive  CMC  gives  d2M/dx^ 

=0,  and  negative  CMC  gives  d2M/dx2  4 0.  If 
ETAD  = 60.,  CMC  is  positive. 

51-60  Scale  factor  by  which  nondimension  coordi- 
nates are  multiplied  to  give  dimensions 
in  inches.  If  SF  = 0,  nozzle  will  have  an 
inviscid  throat  radius  (or  half-height)  of 
1 in.  If  negative,  nozzle  will  have  an 
inviscid  exit  radius  (or  half-height)  of 
| SF | in. 

61-70  Station  (in.)  at  Point  A.  PP  = 0 gives 
coordinates  relative  to  geometric  throat. 
Negative  PP  gives  coordinates  relative  to 
source  or  radial  flow  (ETAD  4 60.). 

71-80  Nondimensional  distance  from  source  to 

Point  C.  XC  = 1 . requires  centerline  Mach 
No.  distribution  from  Point  B to  Point  C 
to  be  read  in  as  input  data  on  Unit  9. 
Otherwise,  positive  XC  gives  5th-deg  dis- 
tribution if  CMC  positive  and  4th-deg  if  CMC 
negative.  XC  = 0 gives  4th-deg  distribution 
if  CMC  positive  and  3rd-deg  if  CMC  negative. 
Negative  XC  and  IN  gives  3rd-deg  distribution 
with  d2W/dx2  not  matching  source  flow  at 
Point  B.  If  ETAD  = 60.  and  XC  > 1 , XC  is  ratio 
of  length,  from  throat  to  Point  C,  to  throat 
height.  Negative  XC  gives  3rd-deg  distribu- 
tion in  M;  XC  = 0 gives  4th-deg  distribution; 

XC  > 1 gives  5th-deg  distribution.  XC  = 1 , 
requires  centerline  Mach  No.  distribution  to 
be  read  in  as  input  data  on  Unit  9. 


1-5  Number  of  points  on  characteristic  EG  if 

ETAD  4 60.  or  CD  if  ETAD  = 60.  Maximum 
value  about  125.  Use  odd  number.  A zero  or 
negative  value  stops  calculation  after  center- 
line  distribution  is  calculated  if  NT  positive. 
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NT  6-10  Number  of  points  on  axis  IE.  Maximum  value 

is  149-LR.  Use  odd  number.  A zero  or  nega- 
tive value  stops  calculation  before  center- 
line  distribution  is  calculated  but  after 
parameters  and  coefficients  of  distribution 
are  calculated. 

IX  11-15  Determines  if  third  derivative  of  velocity 

distribution  is  matched.  IX  = 1 matches 
third  derivative  with  transonic  solution. 

IX  = -1  matches  third  derivative  with  source 
flow  value.  IX  = 0 does  not  match  third  deriva- 
tive but  gives  constant  third  derivative  if 
RC  = 0 or  FMACH  = 0. 

IN  16-20  Determines  type  of  distribution  from  Point  B 

to  Point  C,  positive  for  Mach  No.  distribution, 
negative  for  velocity  distribution.  IN  = 0 for 
throat  only.  If  XC  is  greater  than  1.,  the 
downstream  value  of  the  second  derivative  at 
Point  B is  0.1*  | IN | times  the  radial  flow 
value.  Similarly,  if  ETAD  = 60.,  the  second 
derivative  at  Point  I is  0.1*IN  times  the 
transonic  value. 

IQ  21-25  Zero  for  a complete  contour  if  ETAD  ^ 60.,  1 for 

throat  only  or  if  ETAD  = 60.,  -1  for  downstream 
only. 

MD  26-30  Number  of  points  on  characteristic  AB.  Maxi- 

mum value  about  125.  Use  odd  number.  A zero 
or  negative  value  stops  calculation  similarly 
to  MT. 

ND  31-35  Number  of  points  on  axis  BC.  Maximum  value  is 

150.  A zero  or  negative  value  acts  like  NT. 

NF  36-40  Absolute  value  is  number  of  points  on  character- 

istic CD  for  ETAD  f 60,  Maximum  value  is  149 
or  200  - ND  - MP  - | MQ | - number  of  points  on 
upstream  contour.  Negative  value  calls  for 
smoothing  subroutine. 

MP  41-45  Number  of  points  on  conical  section  GA  if 

FMACH  t BMACH.  Use  value  to  give  desired  in- 
crements in  contour  - usually  not  known  for 
initial  calculation. 


55 


AEDC-TR-78-63 


MQ  46-50  Number  of  points  downstream  of  Point  D if 

parallel  inviscid  contour  desired.  A nega- 
tive value  can  be  used  to  eliminate  the 
inviscid  printout. 

JB  51-55  Positive  number  if  boundary-layer  calcula- 

tion is  desired  before  spline  fit.  Nega- 
tive number  transfers  control  of  program  to 
JX.  Absolute  values  greater  than  one  are 
used  to  approximately  halve  the  number  of 
points  on  the  upstream  contour  even  though 
LR  + NT  - 1 points  are  calculated  from  char- 
acteristic network  if  LR  > 2,  or  (NT  +1) 
points  if  LR  = 0. 

JX  56-60  Positive  number  calls  for  calculation  of  stream- 

lines, zero  calls  for  repeat  of  inviscid  calcula- 
tions requiring  new  cards  3 and  4,  or,  if 
XBL  = 1000.,  for  spline  fit  after  inviscid  calcu- 
lation, negative  number  calls  for  repeat  of  cal- 
culations requiring  new  cards  1,  2,  3,  and  4. 

JC  61-65  If  not  zero,  calls  for  printout  of  intermediate 

characteristics  within  upstream  contour  if  JC 
is  positive  and  downstream  contour  if  JC  is 
negative.  Characteristics  are  (NT  - 1 ) / JC  or 
(ND  - 1 ) / (— JC) . Opposite  running  characteristic 
through  Point  E (or  B)  is  also  printed. 

IT  66-70  Number  of  points  at  which  spline  fit  is  desired 

if  points  are  not  evenly  spaced,  such  as  jack 
locations  for  a flexible  plate.  Used  only  for 
a planar  nozzle,  inasmuch  as  a nonzero  value 
calculates  distance  along  curved  plate  surface. 
Positive  value  of  IT  requires  additional  cards 
to  be  read  in  (8  points  per  card)  after  boundary 
layer  is  calculated. 

LR  71-75  Absolute  value  is  number  of  points  on  throat 

characteristic  used  in  characteristics  solution. 
Negative  values  give  printout  of  transonic  solu- 
tion. LR  = 0 gives  M = 1 at  Point  I. 

NX  76-80  Number  from  10  to  20  determines  spacing  of  points 

on  axis  for  upstream  contour.  NX  = 10  gives 
linear  spacing.  NX  > 10  gives  closer  spacing  of 
points  at  upstream  end  than  at  downstream  end. 

NX  = 0 same  as  NX  = 20.  Ratio  of  downstream 
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increment  to  upstream  increment  is  (NT  - ^ NX/10  _ 

(NT  - Optimum  values,  usually  13  to  15, 

determined  by  trial  and  error  for  specific  con- 
tour desired.  Negative  NX  used  with  negative  LR 
limits  printout  to  transonic  solution. 

NOTE:  A zero  value  of  MT,  NT,  MD,  or  ND  will  allow  a repeat  of  cal- 
culations for  parameters  specified  by  new  cards  Nos.  3 and  4. 

A negative  value  will  allow  a repeat  of  calculations  for  new 
cards  Nos.  1,  2,  3,  and  4. 


Card  5 


NOUP 

1-5 

If  smoothing  is  desired,  negative  NF.  Number  of 
times  upstream  contour  is  smoothed. 

NPCT 

6-10 

Smoothing  factor  in  percent.  Smoothing  factor 
= NPCT /1 00. 

NODO 

11-15 

Number  of  times  downstream  contour  is  smoothed. 

Card  5 

If  boundary-layer  calculation  is  desired  using 
inviscid  points  calculated  from  characteristics 

or 

solution.  (No  smoothing). 

Card  6 

If  boundary- layer  calculation  is  desired  using 
evenly  spaced  points  interpolated  from  spline 

or 

fit  of  points  from  characteristics  solution. 

Card  7 

If  boundary-layer  calculation  is  desired  using 
evenly  spaced  points  interpolated  from  spline 
fit  of  smoothed  points. 

PPQ 

1-10 

Stagnation  pressure  (psia) . 

TO 

11-20 

Stagnation  temperature,  Rankine. 

TWT 

21-30 

Throat  wall  temperature,  Rankine,  if  QFUN  = 0. 

If  TWT  = 0,  the  wall  temperature  is  assumed  to 
be  the  adiabatic  value. 

TWAT 

31-40 

Wall  temperature,  Rankine,  at  Point  D.  For 

water-cooled  wall,  the  bulk  water  temperature 
is  assumed  to  be  15°  lower  than  specified 
TWAT.  The  cooled  wall  temperature  distribu- 
tion is  assumed  to  be 
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where  A/A*  is  the  area  ratio  corresponding  to 
local  value  of  Mach  number  and  Ac  refers  to 
Point  C. 

For  negative  IHT 


(TWT  - TWAT)  /Ac/A* 


TW  = TWAT  + x _ 1 ) 

iW  iWAi  + Ac/A*  - 1 X V A/A*  V 


QFUN 


41-50 


Heat-transfer  function  at  the  throat. 


ALPH 


IHT 


51-60 


61-65 


QFUN 


ha (Taw  - TWT) 

TWT  - TWAT  + 15 


where  ha  has  dimensions  of  BTU/sec/sq  ft/R  and 
is  obtained  by  Reynolds  analogy  from  the  skin- 
friction  coefficient.  If  QFUN  is  specified, 
input  value  of  TWT  is  ignored  and  TWT  is  calcu- 
lated from  QFUN. 

Parameter  specifying  temperature  distribution  in 
boundary  layer.  ALPH  =1,  uses  quadratic  dis- 
tribution both  in  the  calculation  of  the  refer- 
ence temperature  TP  and  the  calculation  of 
boundary-layer  shape  parameters.  ALPH  = 0 uses 
parabolic  distribution  in  both  calculations, 

ALPH  = -1,  uses  quadratic  distribution  for  TP 
and  parabolic  in  the  calculation  of  boundary- 
layer  shape  parameters.  Within  boundary  layer, 

T = Tw  + a (Taw  - TW)  (U/Ue) 

+ [re  - a (Taw  - Tw)  - Tw]  (U/Ue)2 

where  a = 1 for  quadratic  dist. 
ot  = 0 for  parabolic  dist. 

Integer  which  determines  temperature  distribu- 
tion (see  TWAT).  If  nonzero,  IHT  determines 
how  often  subroutine  HEAT  is  called.  An  absolute 
value  of  IHT  greater  than  KO,  the  number  of  points 
on  the  upstream  contour,  will  prevent  HEAT  from 
being  called  but  will  allow  the  choice  of  tempera- 
ture distribution  to  be  made. 
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NOTE:  HEAT  is  a special  purpose  subroutine  for  determining 
beat-transfer  values  for  the  upstream  contour.  The 
subroutine  HEAT  incorporated  in  this  program  is  a 
dummy. 

IR  66-70  Integer,  parameter  specifying  transformation 

from  incompressible  to  compressible  values. 

If  IR  = 2,  Coles'  transformation  is  used  for 
Cf  and  Re0.  If  IR  = 1 , TP  is  calculated  by 

a modification  of  the  Spalding-Chi  (Van  Driest) 
method.  If  IR  = 0,  the  Van  Driest  value  of 
Re0  is  used,  but  if  IR  = -1,  Coles'  law  of 
i 

corresponding  stations  is  used. 

Cf  = Cf  * TE/TP,  Re0  = FRD*Reg. 
i i 

ID  71-75  Integer.  If  ID  = ±1,  axisymmetric  effects 

are  included  in  momentum  equation  and  in  cal- 
culation of  boundary-layer  parameters  (6  not 
negligible  relative  to  coordinate  normal  to 
axis).  If  ID  = 0,  these  effects  are  omitted. 
Negative  ID  suppresses  the  printout  of  the 
boundary-layer  calculations. 

LV  76-80  Integer.  Absolute  value,  usually  5,  deter- 

mines number  of  times  boundary-layer  solution 
is  iterated  so  that  radius  terms  in  momentum 
equation  refer  to  viscid  radius  instead  of 
inviscid  radius.  Value  of  0 or  absolute  value 
of  1 uses  inviscid  radius.  Positive  LV  repeats 
boundary- layer  calculations  for  new  set  of 
parameters  on  a new  card  if  XBL  4 1000. 

Card  5 If  streamlines  are  desired,  JX  positive.  (No 

smoothing. ) 

ETAD  1-10  Inflection  angle  in  degrees  for  streamline 

desired  if  ETAD  4 60,  for  Card  3.  If  ETAD  = 

60.  on  Card  3,  use  ETAD  = 60  on  this  card. 

QM  11-20  Fraction  of  contour  desired  if  ETAD  = 60. 

Otherwise,  QM  = ETAD  on  Card  5 divided  by 
ETAD  on  Card  3. 

XJ  21^30  Value  to  update  JX  for  subsequent  calcula- 

tion, JX  = XJ. 
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If  SPLIND  used  after  inviscid  calculation 
(JX  zero  or  negative  and  JB  zero  or  nega- 
tive). (No  smoothing.) 


Card  5 
or 

Card  6 

or 

Card  7 

XST 

XLOW 

XEND 

XINC 

BJ 

XMID 

XINC2 

CN 


If  SPLIND  used  after  viscid  contour  (JB  posi- 
tive and  LV  zero  or  negative).  No  smoothing 
of  inviscid  contour.  Or,  if  inviscid  contour 
is  smoothed  before  SPLIND  is  used. 

If  inviscid  contour  is  smoothed,  boundary  layer 
is  added  and  SPLINE  is  desired. 

1-10  Station  (in.)  for  throat  value  of  X,  If 

XST  = 1000.,  program  uses  value  previously 
determined  by  specifying  PP  on  Card  3.  Other- 
wise, value  of  XST  is  used  to  shift  contour 
points  by  desired  increments  for  arbitrary 
Station  0. 

11-20  Starting  value  for  interpolation.  Second  value 
of  interpolated  X = XLOW  + XINC. 

21-30  End  value  for  interpolation.  If  zero,  SPLIND 
is  used  to  calculate  slope  and  d^y/dx^  at  same 
points  as  previously  defined. 

31-40  Increment  in  X for  interpolation.  If  zero,  and 
BJ  > 10,  contour  is  divided  into  BJ  increments. 

41-50  Value  to  update  JB  for  subsequent  calculation. 

JB  = BJ.  If  negative  and  XEND  = 0,  interpola- 
tion is  made  at  discrete  points  read  in  on  sub- 
sequent cards  similar  to  case  when  IT  > 0. 

51-60  Intermediate  value  for  interpolation.  Distance 
(XMID-XLOW)  is  divided  into  increments  defined 
by  XINC,  and  distance  (XEND-XMID)  is  divided 
into  increments  defined  by  XINC2. 

61-70  Increments  in  X between  XMID  and  XEND  if  differ- 
ent than  XINC. 

71-80  Number  of  copies  desired  of  final  tabulation  of 
coordinates  if  more  than  one  copy  is  desired. 
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APPENDIX  D 
COMPUTER  PROGRAM 


MAIN  PART  OF  MAI  1 

PROGRAM  C0NTUR(INPUT,0UTPUT.TAPE5»INPUT.TAPE6*0UTPUT)  MAI  2 

MAI  3 

NOZZLE  CONTOUR  PROGRAM  VEW00028  FOR  AXISYMHETRJC  OR  PLANAR  FLOW  MAI  A 

WITH  RADIAL  FLOW  REGION  AND/OR  WITH  CENTER-LINE  VELOCITY  OR  MACH  MAI  S 

NUMBER  DISTRIBUTIONS  DEFINEO  BY  POLYNOMIALS.  MAI  6 

MAI  . T 

CORRECTION  APPLIED  FOR  GROWTH  OF  TURBULENT  BOUNDARY  LAYER.  MAI  8 

PERFECT  GAS  IS  ASSUMED  WITH  CONSTANT  SPECIFIC  MEAT  RATIO,  GAM.  MAI  9 

COMPRESSIBILITY  FACTOR.  ZO,  AND  RECOVERY  FACTOR,  RO,  AS  INPUTS.  MAI  10 

ALSO  INPUT  IS  GAS  CONSTANT,  AR.  IN  SO  FT  PER  SO  SECOND  PER  DEG  R.  MAI  11 

IF  VISM  IS  SUTHERLANDS  TEMPERATURE.  VISCOSITY  FOLLOWS  SUTHERLANDS  MAI  12 

LAW  ABOVE  VISM,  BUT  IS  LINEAR  WITH  TEMPERATURE  BELOW  VISM.  MAI  13 

ifivism.le.i.d.oi  viscosity«visc»temperature»»vism  mai  ia 


implicit  real*b<a-h,o-z)  mai  is 

COMMON  /GG/  GAM.GM.Gl ,G2, G3.GA .GS.G6. G7.G8 ,G9, GA.RGA ,OT  MAI  17 

COMMON  /COORD/  S<200) ,FS<200> .WALTAN1200) ,SD{200> »WMN(20O> »TTR(200MAI  18 

1) .DMDXI200) .SPR<200) ,DPX (2001, SREF (200) ,X8IN,XCIN.GMA,GMB.GMC.GM0  MaI  19 

COMMON  /CORB/  DLA (200) ,RCO (200) ,OAX (200) .DRX (200) »SL (200 ) ,DR2  MAI  20 

COMMON  /PROP/  AR.ZO.RO.VISC.VISM.SFOA.XBL.CONV  MAI  21 

COMMON  /PARAM/  ETAD.RC.AMACH.BMACH.CMACH.EMACH.GMACH.FRC.SF.WWO.WWMAl  22 

iop,om,we«cbet,xe»eta.epsi«8psi.xo,yo.rrc,soo,xb.xc»ah,pp,se.tye»xamai  23 


COMMON  /JACK/  SJ(30),XJC30) ,YJ(30),AJ(30) 

MAI 

24 

COMMON  /CONTfi/  ITLE (3) .IE.LR.1T * JB* JQ, JX, K AT, KBL .KING, KO.LV.NOCON 

MAI 

25 

DATA  ZRO/O. OD.O/.ONE/l. 0*0/, TWO/2. D.0/.0C7/8HCURVATUR/ 

MAI 

26 

DATA  OCi/SH  D2Y/DX2/*DCZ/8H  /*DC3/8M 

ANGLE/ 

MAI 

27 

DATA  0C4/BH  0Y/DX/*0C5/8H  DY/DS/* 0C6/8H 

DX/OS/ 

MAI 

28 

DATA  L1/4N  X/*L2/4H  Y/*L3/4H  S/*L4/4H 

/*L5/4H0IFF/ 

HA  I 

29 

C0NV*90.D*0/DARSlN<ONE> 

MAI 

30 

IT*0 

MAI 

31 

NC*Q 

MAI 

32 

LA*L1 

MAI 

33 

L0-L4 

MAI 

34 

DCA*DC4 

MAI 

35 

DC9*DC2 

MAI 

36 

JJ»1000 

MAI 

37 

DCC«DCt 

MAI 

38 

MAI 

39 

READ  (5.30*EN0*24>  ITLE* JD 

MAI 

40 

IF  (lTLeUJ.EQ.L4)  GO  TO  24 

MAI 

41 

MAI 

42 

OT*ONE/a  + IE) 

MAI 

43 

MAI 

44 

READ  (5*28)  GAM* AR*ZO*RO*VISC* VISM*$F0A,XBL 

MAI 

45 

FOR  GAMMA-1.4*  G9«5*  Q8-.2*  67*1.2*  66*5/6* 

G5*l/6*  64*l/S0RT‘(6)t 

MAI 

46 

63*1.5*  G2*SQRT (6) * Gl*2.5 

MAI' 

47 

GM*GAM-0NE 

MAI 

48 

Gl*ONE/GM 

MAI 

49 

G9»TW0*G1 

MAI 

50 

G8*ONE/G9 

MAI 

51 

G7*0NE*G8 

MAI 

52 

G6*0NE/G7 

MAI 

53 

G5*G8*G6 

MAI 

54 

RGA*TW0*G5 

MAI 

55 

6A*ONE/RGA 

MAI 

56 

AEDC-TR-78-63 


G\ 

N3 


G4»D$QRT(G5) 

HA! 

57 

G3*GA/TW0 

MAI 

58 

G2-0NE/G4 

MAI 

59 

IF  (IE.EQ.O)  AH*ZO 

MAI 

60 

IF  (IE.EQ.O)  ZO«ONE 

MAI 

61 

QH«ONE 

MAI 

62 

JX»0 

MAI 

63 

J0*0 

MAI 

64 

LV*0 

MAI 

65 

CALL  AXIAL 

MAI 

66 

IF  (LW.LT. 91  GO  TO  J 

MAI 

67 

CALL  PE RFC 

MAI 

68 

IF  (NOCON.NE.OI  GO  TO  2* 

MAI 

69 

IF  ( { JQ.GT.O) .OR. { JX.GT.O) ) GO  TO  3 

MAI 

70 

IF  ( JB.GT .0)  CALL  BOUND 

MAI 

71 

IF  (XBL.EQ.1.D.3)  GO  TO  5 

MAI 

72 

IF  (IT.LT.I)  GO  TO  A 

MAI 

73 

LA-L3 

MAI 

74 

0CA-0C5 

MAI 

75 

0CC«DC7 

MAI 

76 

KUP«IT 

MAI 

77 

KAP*KUP»l 

MAI 

78 

XEND*ZRO 

MAI 

79 

MAI 

80 

READ  (S.28,END«24)  (SJ (K) ,K«1 ,KUP> , XST 

MAI 

81 

CSKwONE/OSQRT (ONE*ORX  <KAT)*»2) 

MAI 

82 

SNK«CSK»ORX(KAT) 

MAI 

83 

CALL  SPLINO  (SL.RCO.ZRO.SNK.KAT) 

MAI 

84 

GO  TO  6 

MAI 

85 

IF  (LV.GT.OI  GO  TO  2* 

MAI 

86 

IF  (JX.LT.OI  GO  TO  1 

MAI 

87 

GO  TO  2 

MAI 

68 

CONTINUE 

MAI 

89 

MAI 

90 

READ  (5,28.END«2*>  XST.XLOW.XEND. XlNC.BJ.XNI0.XINC2.CN 

MAI 

91 

IF  (XST.EO.XBL)  xsT»sm 

MAI 

92 

NC*CN*ONE 

MAI 

93 

IF  ( JB.LE.O)  CALL  SPLINO  (S.FS.WALTAN(l) .WALTAN(KING) .KING) 

MAI 

94 

IF  (JB.GT. 0)  CALL  SPLINO  (S.RCO.ORX (1 1 .ORX (KAT) ,KAT) 

MAI 

95 

IF  (XENO.GT.ZRO)  GO  TO  6 

MAI 

96 

LB«L5 

MAI 

97 

DCB»OC* 

MAI 

98 

$LONG«S(K!NG)-SU> 

MAI 

99 

ipp*o 

MAI 

100 

WRITE  (6.25)  ITLE.SLONG 

MAI 

101 

WRITE  (6.311  LA.L2.DCA.0C3.0CC.0CB.LB 

MAI 

102 

IF  (JB.GT. 0)  GO  TO  T 

MAI 

103 

WRITE  (6.26)  XST.FS(  1 J .WALTAN(l)  .ZRO.SO (1) 

MAI 

104 

XMAX«SLONG»XST 

MAI 

105 

tmax»fs(king) 

MAI 

106 

tmax«waltan<kIngi 

MAI 

107 

GO  TO  8 

MAI 

106 

WRITE  (6,26)  XST .RCO(l) .ORX(l) .ZR0.0R2 

MAI 

109 

XMAX«S(KAT)-S(1)«XST 

MAI 

110 

YMAX»RC0(KAT) 

MAI 

111 

TMAX«0RX(KAT> 

MAI 

112 
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LO 


8 


9 


C 


10 


U 


12 

13 


14 


16 


17 

18 


IF  (IT.GT.O)  GO  TO  11 
JB«BJ 

IF  (XENO.GT.7RO)  GO  TO  10 
IF  ( JB.LT .0)  GO  TO  9 
KUP»KING-1 

kap*king~i 

GO  TO  11 

kup*-jb 

KAP*KUP^1 

READ  (5  *28.END«24)  <$J(K) *K«I .KUP) 

GO  TO  11 

IF  (XINC.GT.ZRO)  KUP*(X£N0-XL0W)/XlNC*l.D-2 
IF  (XMIO.NE.ZR0)  JJ» ( XMID-XLOW) /XINCM .0*2 
IF  (XMIO.NE.ZRO)  KUP*JJ* (XEND^XMIO) /XINC2*1 .0-2 
IF  (JB.GT.10)  KUP*J8 
IF  (JB.ST.IO)  X I NC*SLONG/B J 

kap*<xmax-xlow>/xinoi 

IF  (XMIO.NE.ZRO)  KAP*JJ* (XHAX-XMIO) /XINC2*1 
00  19  K*1*KUP 
IF  (XEND.EQaZRO)  GO  TO  12 
X*X10W#K*XINC 

IF  (K.GT.JJ)  X«XMID*(K-JJ)*XINC2 
GO  TO  13 

IF  (IT.LT.WAND.J8.GE.0)  X*S(K*1) 

IF  (IT.GT.O. OR. JB.LT.O)  X*SJ(K> 

XX«X-XSWStl> 

IF  (K.LT.KAP)  CALL  XYZ  (XX. YY. YYP* YYPP) 

IF  (K.EO.KAP)  X=XMAX 

IF  (K.GE.KAP)  yy*ymax 

IF  (K.GE.KAP)  YYP*THAX 

IF  (K.GE.KAP)  YYPP*ZRO 

IF  (IT.LT.1)  GO  TO  16 
IF  (IPP.GT.O)  GO  TO  14 
YJ(K)*YY 

AJ(K)*DARS1N(YYP) 

WANG«CQNV*AJ<K) 

CURV*YYPP/DC05(AJ(K) ) 

WRITE  (6.26)  X. YY* YYP. WANG.CURV 
GO  TO  18 
YY*YY-S(1)*XST 
X J (K) *YY 

WANG«CONV*DARCOS ( YYP) 

WRITE  (6.26)  X.YY.YYP.WANO 
GO  TO  18 

W ANG»CONV*OATAN ( Y YP ) 

IF  (XEND.EO.ZRO.ANO. JB.GE.O)  DY*YYP-WALTAN(K*i ) 

IF  (JB.LE.O)  GO  TO  17 
FS(K*1)*YY 
WALTAN(K*l)sYYP 
SD(K*1)*YYPP 

IF  (XEND.GT.ZRO. OR. JB.LT.O)  WRITE  (6.26)  X.YY*YYP* WANG. YYPP 
IF  (XENO.EO.ZRO.ANO. JB.GE.O)  WRITE  (6.26}  X. YY. YYP. WANG. YYPP. DY 
IF  (HOO(K.IO).EQ.O)  WRITE  (6.29) 

IF  < MOO (K.50}«N£.0)  GO  TO  19 
WRITE  (6,25)  ITLE.SLONG 


MAI 

113 

MAI 

11* 

MAI 

US 

MAI 

116 

MAI 

117 

MAI 

ns 

MAI 

119 

MAI 

120 

MAI 

121 

MAI 

122 

MAI 

123 

MAI 

12* 

MAI 

1HS 

MAI 

126 

MAI 

127 

MAI 

128 

MAI 

129 

MAI 

130 

MAI 

131 

MAI 

132 

MAI 

133 

MAI 

13* 

MAI 

135 

MAI 

136 

MAI 

137 

MAI 

138 

MAI 

139 

MAI 

1*0 

MAI 

1*1 

MAI 

1*2 

MAI 

1*3 

MAI 

1** 

MAI 

1*5 

MAI 

1*6 

MAI 

1*7 

MAI 

1*8 

MAI 

1*9 

MAI 

150 

MAI 

151 

MAI 

152 

MAI 

153 

MAI 

15* 

MAI 

155 

MAI 

156 

MAI 

157 

MAI 

158 

MAI 

159 

MAI 

160 

MAI 

161 

MAI 

162 

MAI 

163 

MAI 

16* 

MAI 

165 

MAI 

166 

MAI 

167 

MAI 

168 
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ON 

4^ 


19 


20 


21 

22 


23 


24 
C 

25 

26 
27 
26 

29 

30 

31 


C 


WRITE  16,31)  LA,L2»DCA,QC3,DCC,DC8,LB 

MAI 

169 

CONTINUE 

MAI 

170 

IF  (IT.6T.0.AN0.IPP.EQ.1)  CALL  PLATE 

MAI 

171 

IF  <IPP.6E.NO  SO  TO  20 

MAI 

172 

IPP«IPP»l 

MAI 

173 

WRITE  (6.25)  ITLE.SLONG 

MAI 

174 

WRITE  (6,31)  LA,L2«0CA,0C3,DCC 

MAI 

175 

WRITE  (6.26)  XST,RCO<1),ORX<1> .ZRO.OR2 

MAI 

176 

SO  TO  11 

MAI 

177 

IF  <<IPP.GT.O).OR.<JX.LT.O>>  60  TO  l 

MAI 

178 

IF  (IT.EO.O)  60  TO  21 

MAI 

179 

IPP«1 

MAI 

180 

CALL  SPLIND  <SL.S,ONE.CSK,K»T> 

MAI 

181 

WRITE  <6,29) 

MAI 

182 

WRITE  <6,31)  L3«Ll *DC6,DC3 

MAI 

183 

WRITE  <6,26)  XST.XST.ONE.ZRO 

MAI 

184 

GO  TO  11 

MAI 

185 

IF  <JB)  1,2,22 

MAI 

186 

CALL  SPLINO  <S.WHN»DHDX<1) »OMDX<KING> .KING) 

MAI 

187 

DO  23  K»l,KtlP 

MAI 

188 

X«XLOW*K»XINC 

MAI 

169 

IF  IXENO.EO.ZRO)  X«S<K»1> 

MAI 

190 

XX«X-XST*S<1> 

HAl 

191 

IF  <K.LT.KAP)  CALL  XTZ  <XX,YY,VYP,YyPP) 

MAI 

192 

IF  <K.GE.KAP)  YY»CHACH 

MAI 

193 

IF.  <K,GE,KAP)  YYP*ZRO 

MAI 

194 

StK*I)»X 

MAI 

195 

WMN<K,1)«YY 

MAI 

196 

TTR<K»1)*0NE»68»YY»»2 

MAI 

197 

SPR  < K ♦ 1 > *ONE/TTR  <K*l ) **  <0NE*G1 ) 

MAI 

198 

DMOX (K,l) *YYP 

MAI 

199 

DPX<K*1)*-GAM»YY»YYP»SPR<K*1)/TTR<K*1) 

MAI 

200 

sm«xsT 

MAI 

201 

KAT»FUP*i 

MAI 

202 

KBL»K*T»4 

MAI 

203 

K0«1 

MAI 

204 

CALL  BOUND 

MAI 

205 

IF  <JS.E0.7>  STOP 

MAI 

206 

IF  < JB.GT.10)  SO  TO  1 

MAI 

207 

WRITE  <6,2S)  ITLE.SLONG 

MAI 

208 

WRITE  <6,31)  L1.L2.DC4 

MAI 

209 

WRITE  <6.27)  IS(K)»RCO(K) , DRX <K) ,K*1 ,KAT) 

MAI 

210 

GO  TO  1 

MAI 

211 

STOP 

MAI 

212 

MAI 

213 

FORMAT  <1H1,9X,3A4, ' COORDINATES  AND  DERIVATIVES,  LENGTH 

*• »F12*7>  MAI 

214 

FORMAT  <1H  *8X,2F15,6, 1P4E20.8) 

MAI 

215 

FORMAT  <10<9X.OP2F15,6.1PE20,8/) ) 

MAI 

216 

FORMAT  <8E10.0) 

MAI 

217 

FORMAT  <IH  ) 

MAI 

218 

FORMAT  (3A4, 13) 

MAI 

219 

FORMAT  <1H0,14X,A4,»  <IN)».7X.A4,MIN)  * ,6X,A8,12X. AS,  14X, 

Ad*9X»A8«2MAl 

220 

IX, A4  /) 

MAI 

221 

END 

MAI 

222 

SUBROUTINE  AXIAL 

AXI 

1 

AXl 

2 
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ON 

Ui 


c 

c 


c 


c 

c 

c 

c 


1 

c 

c 

2 


TO  OBTAIN  THE  AXIAL  DISTRIBUTION  OF  VELOCITY  AND/OR  MACH  NUMBER  AXI 

AXl 

IMPLICIT  REAL*6< A-HtO-Z)  AXI 

COMMON  /FG/  GC«GO»GE'GFtGH»Gl'HA*H0«HC»HE  AXI 

COMMON  /GG/  GAM,GM*Gl*G2*G3*GAfG5*G6*G7*G8*G9*GA»«GA*0T  AXl 

COMMON  /CLINE/  AXIS(S*IS0) ♦ TAXI (5*150) *WIP*X1 «FRlP*20NKt SEO#C$E  AXl 
COMMON  /PROP/  AR*Z0*R0»V1SC*V1SM.SF0A*XRL»C0NV  AXI 


COMMON  /PARAM/  ETADtRC* AMACH*BMACH#CMACH,EMACH,GMACH*FftC »SF«MWO»WWAXl 
lOP*QMtME*CB€T»XE*ETA»EPSI tBPSI *XO» YO»RRC#S00»X8*XC* AHt PPtSEtTYEfXAAX I 
COMMON  /CONTR/  I TLE (3) ♦ IE*LR* IT* J8, JO* JX*KAT.K8L «KING* KO*LV,NOC0n, AXI 


1 IN,MC*MCPf IP.lO«ISE*JC«MtMP,MQ*NfNP*NF,NUT*NR*LC*MO*MFtMTfND*NT  AXI 
DATA  ZRO/0.00*0/*ONE/1«0»0/*TWO/2.0*0/»SIX/6*0*0/*HALF/5.0-I/  AXI 

DATA  THR/3 * 0*0/ ♦ FOUR/4 ♦O+O/^F I V/5^D*0/t TEN/ 1 •D*l/*TLV/l *20* 1/  AXI 

DATA  SEV/7«0*0/*EIT/8*D*0/*FFTN/l *5D* l/tTRTY/3#0*l/tSXTY/G«D*l/  AXI 
DATA  M1/4HGMAC/*M2/4H2-D  /*1AX1S/4HAXIS/*NS/4H  SPE/tNC/4HCI AL/  AXI 
DATA  N3/4H  3R0AN4/4H  4TH/tN5/4H  STHAN0/4H-DEG/  AXI 

DIMENSION  C (6) • D(4)»  AXU501*  AXM(l50>f  AXMP(l5Q>  AXI 

AXI 

HPI=9,D*1/C0NV  AXI 

IF  (J£J.EU*0,AND.JX.EQ,0>  CALL  OREZ  <AXtSf2*750>  AXI 

IF  ( JQ*GT *0)  GO  TO  50  AXI 

IF  IJX«EQ,0)  GO  TO  2 AXI 

AX! 

CARD  USED  TO  OBTAIN  INTERNAL  STREAMLINES  <JX  > 0>  AXI 

AXI 

READ  (5*93*EN0«91)  ETAO.OM,XJ  AXI 

AXl 

JX«XJ  AXI 

IF  (ETAD,eo.SXTY>  GO  TO  1 AXl 

ETA*ETAD/CONV  AXl 

IF  tlE.EQ.O)  SE*ETA  AXI 

IF  (IE.EQ*I>  SE*TWO*OSIN(HALF*ETA)  AXI 

CSE«DCOS(£TA)  AXI 

APSI»BPSI-ETA/0T  AXI 

AMACH*FMV (APSI)  AXI 

RA*( <G6*G5*AMACH**2)**GA/AMACM)**QT  AXI 

GPS I=EPS I*ET  A/OT  AXI 

GMACH*FMV (GPSt  > AXI 

RG*t tG6*G5*6HACH**2) **GA/GMACN) **QT  AXI 

MP»ONE*THR*(RA-»RG)  AXI 

GO  TO  14  AXI 

S£*QM*S£0  AXI 

GO  TO  14  AXI 

AXI 

CONSTANTS  USEO  IN  TRANSONIC  SOLUTION  AXI 

GC*<TW0*GAM/QT.TMR)/SIX/<34IE)  AXl 

GE«<THR*I0*1E)-FOUR*GAM/OT)/THR/<7*1EJ  AXI 

GH* (FFTN* (2-6*IE>*GAM)/TLV/(5*lE)  AXI 

GJ* (GAM* <GAM*9.250*0*lE-26.5D*0> ♦♦750*0* (6-IE) )/TLV/(3-lEJ  AXI 

GK» (GAM*  <GAM*2« 250*0* I E-16* 50*0) *2^250*0* (2*I£) ) /SIX  AXI 

GR*(FFTN-(l*9*IE>*GAM)/(lS*lE>/18.0*0  AXI 

HB*(14.D*0*GAM-75*D*0*18*IE>/(270.0*Q*18*IE>  AXI 

IF  (IE.EQ.O)  GO  TO  3 AXl 

GD*(GM*<652.D*0*GM*13l9,D*Q>*1000*0*0>/6912<D*Q  AXI 

GF*(3612*0*0*GM*(751.D*Q*GM*754.D*0>  >/2880.0*0  AXl 

GI  = (909*D*0*GAM* (270#D*0*GAM*412^0*0) ) /I 0368 « 0*0  AXl 


3 

4 

5 

6 

7 

8 
9 

10 

n 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 
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GS*(GAM*(GAM»270B.O*0»2O79.O*O>  *2115. 0*<l>/82944.  0*0 

AXI 

59 

HC*( GAM* (2364. 0»0*GAM-3915,D*0> *14337.0*0] /82944.0.0 

AX  l 

60 

H£*(GAM*(64.0*0*GAM*n7.D*0>-1026.0*(>>/1152.0*0 

AXI 

61 

GO  TO  4 

AXI 

62 

c 

AXI 

63 

c 

AXISYM  FLOW.  IF*1,  OT*0.5.  GAM*1.4.  GC*0« 10833333 > G0«0 .236099537 

»AXI 

64 

c 

GE»0. 65833333.  GF*1 .400361 1 1 , GH*0 . 130S5556.  61*0.2020177469. 

AXI 

65 

c 

GJ*-0. 76833333.  GK*-1 .87333333.  GR*0. 003472222.  GS*0. 1245814043. 

AXI 

66 

c 

HB*-0. 12986111,  HC*0. 1626331019,  HE*-0. 639548611 1 

AXI 

67 

c 

AXI 

66 

3 

GO* <GM» (32. 0*0*GM-14.D*0> *221. 0*01/1080 .0.0 

AXI 

69 

GF  * (4230 .O.O.GM* (21 1 .D*0*GM*334.D*0) ) /37BO.O.O 

AXI 

70 

GI*(738.D*0*GAM*(273.D*0*GAM*82,D*0) 1/7560. 0*0 

AXI 

71 

GS* (GAM* [GAM«782.0*0 *3507.0*0) *7767.0*0) /2T2 160.0*0 

AXI 

72 

HC* (GAM* 1274.0.0*GAM-861.0*0) *4464.0.0) /I 7010.0*0 

AXI 

73 

ME* (GAM* (32. D*0*GAM. 87. 0*0) -561. 0*0 1/540. 0*0 

AXI 

7+ 

c 

AXl 

75 

c 

PLANAR  FLOW.  IE»0,  QT*1.0.  GAM*1.4,  GC*-0. 011111.  GD=0 .2041851852 

' AXI 

76 

c 

GE*0. 8761904762.  GF*1 . 155513228.  GHoO. 29666667.  GI*0 . 1269153439. 

AXI 

77 

c 

GO*— 0 .85111111.  GK*-2. 7733333.  GR*0. 05037037037.  GS*0. 05221017049 

* AXI 

78 

c 

HB*-0. 2051851852.  HC*0. 2231416814,  K£*-0 .6971851852 

AXI 

79 

c 

AXI 

80 

c 

CARO  USED  TO  ESTABLISH  1NV1SCIO  PARAMETERS 

AXI 

81 

c 

AXI 

82 

4 

READ  (5.93,EN0*91)  ETAO.RC.FMACri.BMACM.CMC.SF.PP.XC 

AXI 

83 

c 

AXI 

84 

c 

CARO  USEO  TO  CONTROL  CALCULATIONS 

AXI 

85 

c 

AXI 

86 

READ  (5.92)  MT.NT.IX.1N, 1Q.MD.NO.NF .MP.MO, JB, JX, JC. IT .LR.NX 

AXI 

87 

c 

AXI 

68 

LC*XC 

AXI 

89 

1F(XC.GT,0N£)LC*XC*0NE 

AXI 

90 

NR*SIX*HC 

AXI 

91 

mf*fmach 

AXI 

92 

IF  (IE.E0.1)  MC*M1 

AXI 

93 

IF  (IE.EO.O)  MC*M2 

AXI 

94 

N0C0N*0 

AXI 

95 

ETA*ETAO/C0NV 

AXI 

96 

IF  (IE. £0.0)  SE*ETA 

AXI 

97 

IF  (IE. £0.1)  S£*TWO»OSIN(HALF*ETA> 

AXI 

98 

IF  (ETAO.EO.SXTY)  SE=ONE 

AXI 

99 

SE0*SE 

AXI 

100 

ISE*S£ 

AXI 

101 

CSE*OCOS(ETA) 

AXI 

102 

RT*RC*ON£ 

AXI 

103 

AM*ONE 

AXI 

104 

WI*ONE 

AXI 

105 

WIPP*ZR0 

AXI 

106 

HCP*CMC 

AXI 

107 

CMACH* DABS (CMC) 

AXI 

108 

C8ET*0SQRT (CMACH*CHACM-ONE) 

AXI 

109 

FRC* ( ( G6*G5*CMACH**2) **GA/CMACH) «*0T 

AXI 

no 

TYE*FRC»SE 

AXI 

111 

IF  (SF.LT.ZRO)  SF*-SF/TYE 

AXI 

112 

IF  (ISE.EO.O)  GO  TO  5 

AXI 

113 

c 

AXI 

1U 
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C NON-R*OIAL  FLOW  AT  INFLECTION  POINT 
10*1 

AMACHwCMACH 

bmach«cmach 

ehach«cmach 

fmach«cmach 

gh»ch»cmach 

IF  (IE.EQ.1)  AH-GMACH 
WE*G2«EMACH/OSORT (EMACN»»Z«G9) 

OW*WE*WX 
XO*ZRO 
EOE*ZRO 
GO  TO  15 

c 

C RADIAL  flow  AT  INFLECTION  POINT 

5 IF  (IN.EQ.O)  GO  TO  6 

IF  (LC.LT.O.ANO.IN.LT.O)  IN«-1 
IF  (LC.EQ.O.OR.MCP.LT.O)  IN*ISI6N ( 10. IN) 

6 BBET*DSQRT(BMACM*8MACH-0NE) 

BPSI*62»DATAN  < G*»B8ET ) -OATAN ( B8ET I 
IF  (FMACH)  9,8,7 

7 F8£T*OSQRT(FMACH»FMACH-ONE> 
FPSI«G2*0ATAN(G*«FBET)-DATAN(FBET> 

GO  TO  10 

B FMACM»-8PS I/ETA 

IF  <BPSI/ETA.GT.7.50»0>  FMACH*-7.50»0 

9 FPSI**FMACH»ETA 
FHACH»FMV(FPSI) 

10  EP5I*FPSI»TW0*ETA/0T 
EMACM*FMV(EPSI) 

WE*G2»EMACH/0SQRT(EMACH«EMACrt*G9> 

OW*WE'Wl 

CALL  SORCE  <WE,D) 

XE«DU) 

WEP«D(2) 

WEPP*Q(3) 

WRPPP*D(*> 

IF  (NR.NE.O)  GO  TO  15 
IF  (Lft.NE.O.OR.IO.LT.O)  GO  TO  11 
IF  (IX.EQ.O)  WRITE  (6,106)  ITLE.N3 
IF  (IX.NE,0)  WRITE  (6,106)  ITLE,NA 
C 

C ITERATION  TO  DETERMINE  RC  IF  NOT  SPECIFIED  (NR  » 0) 

11  EAaWRPPP 
EB»-FIV»WEPP-W!PP 
EC*TLV»WEP 
ED»-TLV*DW 

X1E*CUBIC(EA,EB,EC,ED) 

IF  (XIE.LE.ZRO)  GO  TO  89 

12  W I P»T  WO* ( WE-ONE ) /XI E-WEP  * ( WEPP-W IPP ) *X 1 E /S I X 

13  N0C0N»N0C0N*1 

IF  (NOCON.GT.lOO)  GO  TO  90 
1*  RT*T0R1C(WIP,SE) 

RC*RT-ONE 

15  TK»(0NE-G7* (ONE* (GE*GF/RT) /RT)/RT«»2/ (IS, IE) /THR) **0T 

Y0*5E/TK 


AXI 

115 

AXI 

116 

AX  I 

117 

AX  I 

118 

AX  I 

119 

AXl 

120 

A XI 

121 

AX  I 

122 

AXI 

123 

AX  2 

12* 

AXI 

125 

AXI 

126 

AXI 

127 

AXI 

126 

AXI 

129 

AXI 

130 

AXI 

131 

AXI 

132 

AXI 

133 

AXI 

13* 

AXI 

136 

AXI 

136 

AXI 

137 

AXI 

138 

AXI 

139 

AXI 

1*0 

AXI 

1*1 

AXI 

1*2 

AXI 

1*3 

AXI 

1*» 

AXl 

1*5 

AXI 

1*6 

AXI 

1*7 

AXI 

1*0 

AXI 

1*9 

AXI 

150 

AXI 

151 

AXI 

152 

AXI 

153 

AXI 

15* 

AXI 

155 

AXI 

156 

AXl 

157 

AXl 

1SS 

AXl 

159 

AXl 

160 

AXI 

161 

AXI 

162 

AXI 

163 

AXI 

16* 

AXI 

165 

AXI 

166 

AXI 

167 

AXI 

168 

AXI 

169 

AXI 

170 
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ON 

00 


X* 


17 


c 

c 

18 


19 


C 

C 


AA-DSORT  tOT»(GAM*ONE>*RT) 

AX  I 

171 

IF  (OH.NE.ONE)  GO  TO  19 

AXt 

172 

RHPP-lONE-GAM/l.SO.O.GJ/RTI/fAA-YOl-*^ 

AX! 

173 

IF  (NR.NE.O.OR.ISE.EO.l I GO  TO  18 

AXI 

17* 

IF  (DABS(BHPP-RIPP).LT. 1.0-10)  GO  TO  18 

AXl 

17S 

RIPP-RHPP 

AXI 

176 

IF  11*1  U.  17. 16 

AXI 

177 

EA«GK/(AA»Y0>**3 

AXI 

178 

E8— THR* (WIPP.REPP) 

AXE 

179 

EC— TLV*R£P 

AXI 

180 

ED-TLV-OR 

AXI 

181 

X IE-CUBIC (EA.EB.EC.ED) 

AXI 

182 

[F  (XIE.LE.ZROI  GO  TO  8* 

AXI 

183 

GO  TO  12 

AXX 

18* 

H« IE!T»BIP*SEV»BEP) / (TMR*R IPP-THO*REPP) 

AXI 

18S 

HH«TRTY*OR/ ( THR*RIPP-TBO-REPP) 

AXI 

186 

XIE=HH/<OSORT(H«H*HH>*M> 

AXI 

187 

RIP-B£P-MALF*XIE* (REPP.RIPP) 

AXI 

188 

GO  TO  13 

AXI 

189 

AXI 

190 

ITERATION  FOR  RC  COMPLETED t REMAINDER  OF  TRANSONIC 

VALUES 

COMPUTEDAXX 

191 

RIP-(ON£»(GC-GO/RT>/RT)/YO/AA 

AXI 

192 

BMP— RIP 

AXI 

193 

RlPP-RHPP 

AXI 

19* 

AMP-G7-RIP 

AXI 

195 

AMPP-G7* (RHPP»THR«G8«WlP»»2) 

AXI 

196 

XOI-YO-OSQRT (GTXTRO/ (9-IE) /RT) • (ONE*  (GH.Gl/RT) /RT  > 

AXI 

197 

IF  (QM.NE.ONE)  GO  TO  21 

AXl 

198 

IF  (1SE.EQ.1)  XI-XOI 

AXI 

199 

XOI-XOI 

AXl 

200 

ro»one-ihalf/(3-:e)*<gr*gs/rti/rT)/rt 

AXl 

201 

OM-WO/OSORT  <G7-G8*R0»»2> 

AXI 

202 

ROPPP-GK/  (AA-YO)  “3 

AXl 

203 

IF  ILR.EO.O)  GO  TO  21 

AXl 

20* 

AXI 

20S 

CALL  FOR  THROAT  CHARACTERISTIC  VALUES 

AXI 

206 

CALL  TRANS  (RT*TK.BO,AM.AMP,AMPP,Rl,ARP,ARPP,ARPPP, 

>XI) 

AXI 

207 

IF  (NX.LT.O.AND.NT.LT.O)  GO  TO  87 

AXI 

208 

IF  (NX.LT.O)  60  TO  A 

AXI 

209 

AHP-AMP/SE 

AXl 

210 

ampp-ampp/se—2 

AXl 

211 

rap-arp/se 

AXI 

212 

rapp»arpp/se**2 

AXI 

213 

ROPPP-ARPPP/SE—3 

AXI 

214 

IF  (ISE.EO.l)  GO  TO  21 

AXI 

21S 

DH-HE-H I 

AXI 

216 

XOI-XI-SE 

AXI 

217 

IF  (NR.GT.O)  GO  TO  20 

AXI 

218 

Xl-XE-XIE 

AXl 

219 

XO-XE-XIE-XOI 

AXI 

220 

C2-XIE-RIP 

AXI 

221 

C3-HALF»Rlpp*xiE»»2 

AXI 

222 

CA-RE-0NE-C2-C3 

AXI 

223 

IF  (IX.NE.O)  CA«F0UR*CA*TR0*C3*C2-XIE*REP 

AXI 

22* 

IF  (IO.LT. 0)  GO  TO  20 

AXI 

22S 

RRITE  (6,110)  ITLE.NA.LR 

AXI 

226 
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VD 


20 

21 


22 


23 

C 

C 


24 


25 


26 


27 


WRITE  (6*96)  XI£*C2*C3*C4*X1 

AXl 

227 

WIP*WAP 

AXI 

228 

WIPP*WAPP 

AXI 

229 

W WO*ONE* ( ONE/ < I£ ♦ 3) - ( MB-HC/RT ) /RT ) /RT 

AXl 

230 

WHOP* (ONE* (ONE-1E/EIT-HE/RT) /RT) /YO/AA 

AXI 

231 

RRC*0NE/RC 

AXI 

232 

SOO*RRC/YO 

AXI 

233 

2ONK*OM*U0D-03 

AXI 

234 

NP*Z0NK*(IABS<NF)-1) *1 

AXl 

235 

IF  (SF.GT,2RO>  GO  TO  22 

AXl 

236 

SF*0NE/YO 

AXl 

237 

IF  <IQ*LT*0)  60  TO  31 

AXI 

238 

IP«0 

AXI 

239 

JQ*0 

AXI 

240 

M«ZONK*  (Mt-l>*I 

AXl 

241 

N*NT 

AXI 

242 

IF  (QM.EG.ONE)  GO  TO  23 

AXI 

243 

X0-X1-X0I 

AXl 

244 

RETURN 

AXl 

245 

CALL  OREZ  (C.6) 

AXI 

246 

IF  (ISE.EQ.O)  GO  TO  31 

AXI 

247 

AXl 

248 

LENGTH  OF  AXIAL  DISTRIBUTION  FOR  NON-RADI AL  FLOW 

AXI 

249 

X1*X0I 

AXI 

250 

aem*emach-ah 

AXI 

251 

C(1)«AM 

AXI 

252 

IF  <LCl  25*24,27 

AXI 

253 

AHSO*AHP**2*AEM*AMPP*FOUR/THR 

AXI 

254 

IF  (LR.EQ.O)  WRITE  (6* 122)  ITL£*N4*N0 

AXI 

255 

IF  (LR.NE.O)  WRITE  (6*107)  ITLE*N4*N0*LR 

AXI 

256 

IF  (AMSO.LT.ZRO)  GO  TO  28 

AXI 

257 

xie*four*aem/ (OSQRT ( AMSG) *AMP) 

AXI 

258 

X£«XIE*XI 

AXI 

259 

C($)*TmR*AEh-AHP*XIE 

AX  I 

260 

GO  TO  26 

AXI 

261 

XIE»THR*AEM/AMP 

AXI 

262 

XE«XIE*XI 

AXI 

263 

IF  (LR.EQ.O)  WRITE  (6*122)  ITLE*N3*N0 

AXI 

264 

IF  (LR.NE.O)  WRITE  (6*107)  ITL£*N3*N0*LR 

AXI 

265 

C(2)»AMP*XIE 

AXl 

266 

C ( 3) *SI X*A£K— THR*C (2) 

AXI 

267 

c (4) *THR*C (2) -E IT*AE* 

AXI 

268 

GO  TO  46 

AXI 

269 

IF  <LC.EQ#1>  GO  TO  29 

AXI 

270 

XE*XC/TK 

AXI 

271 

XIE«FIV*AEM/(DSQRT(AMP»*2*IN*AEM*AMPP/EIT) *AMP) 

AXI 

272 

IF  (XE.GT#XI*XIE)  XE»Xl*XlE 

AXI 

273 

xie*xe-xi 

AXI 

274 

C(2)«AMP*XIE 

AXI 

275 

C(3)*HALF*IN*AMPP*XI£**2/TEN 

AXl 

276 

C(4)«TEN*AEH-SIX*C(2)-THR*C(3) 

AXI 

277 

C(5>»-FFTN*AEM4£IT*C<2>*THR*C<3> 

AXI 

278 

C (6) «SIX*A£M-THft*C  <2> -C (3) 

AXl 

279 

IF  (LR.EQ.O)  WRITE  (6*122)  ITLE*N5*N0 

AXI 

280 

IF  (LR.NE.O)  WRITE  (6*107)  ITLE*N5*N0*LR 

AXI 

281 

GO  TO  46 

AXI 

282 

AEDC-TR-78-63 


28 


O 


C(2)*TW0»AEH 
C(4)«-C(2> 

C(S)»AEM 
XlE*TWO*AEK/ANP 
XE*XI£.Xl 
60  TO  *6 

29  DO  30  J*1.NT 

K»NT»1»J 

REaO  (9)  AX(K) ,AXH(K) ,AXMP(K> 

IF  (J.EQ.l)  OX«XI-AX(K) 

30  AXISt 1 ,K) *AX  < K > *OX 

AXH(NT)*AM 
AXMP(NT)*AMP 
XE»AXIS(l.l) 

xie»xe-xi 

IF  (LR.EQ.O)  WRITE  (6.122)  ITLE.NS.NC 

IF  (LR.NE.O)  WRITE  (6*107)  ITLE.NS.NC.LR 

00  TO  *6 
C 

C LENGTH  OF  UPSTREAM  AXIAL  DISTRIBUTION  FOR  HAOIAL  FLOW 

31  IF  (SFOA.EQ.ZRO!  SO  TO  32 

IF  (LR.EQ.O)  WRITE  (6.106)  ITLE.N5 

IF  (LR.NE.O)  WRITE  <6.1101  ITLE.NS.LR 

GO  TO  44 

32  IF  (LR.EQ.OI  GO  TO  33 

IF  (NR .EQ.O. AND. IX.EQ.O)  GO  TO  *1 
IF  (NR.EQ • 0. AND. IX.NE.O)  MF»0 
IF  (MF.NE.O)  GO  TO  40 
IF  (IO.LT.O.OR.NR.EQ.O)  GO  TO  35 
IF  (IX.EQ.O)  WRITE  (6,110)  ITLE.N3.LR 

IF  (IX.NE.O)  WRITE  (6.110)  ITLE.N4.LR 

GO  TO  35 

33  IF  (HF .EQ.O)  GO  TO  34 
IF  (NR. EQ.O)  GO  TO  45 

IF  (IQ.GE.O)  WRITE  (6.106)  ITLE.N4 
GO  TO  41 
C 

C ITERATION  FOR  EMACM  IF  NOT  SPECIFIED  (MF  « 0) 

34  IF  ( IQ.LT.O)  GO  TO  35 

IF  (IX.EQ.O)  WRITE  (6,1061  ITLE.N3 

IF  (IX.NE.O)  WRITE  <6,1061  ITLE.N4 

35  IF  (NOCON.GT .100)  GO  TO  90 

IF  (IX)  41,36,37 

36  XIE«SIX»0W/ (DSORT ( (WIP.WEP.WEP) **2-StX»0W«WEPP> .W1P.WEP.WEP) 
FXW*HALF»XIE» (WEPP.WIPP) / (WEP-WIP) 

IF  (FXW.LE.ZRO)  EW-WE..1D.0 
IF  (FXW.LE.ZRO)  GO  TO  39 

IF  (FXW.LT .ONE)  EW«WI.0W»(F0UR*FXW«*2)/FIV 
IF  (FXW.GT.ONE.OR.IE.EO.O)  EW*WI*0W» (9.D»0*FXW) /TEN 
GO  TO  39 

37  EA«WOPPP 
E8»FIV»WIPP.WEPP 
EC«TLV»WIP 
ED»-TLV»DW 

XtE*CU81C (EA.EB.EC.ED) 

IF  (XIE.GT.ZRO)  GO  TO  38 


AX I 283 
AXI  284 
AX I 285 
AXI  286 
AXI  287 
AXI  288 
AXI  289 
AXI  290 
AX!  291 
AXI  292 
AXI  293 
AXI  294 
AXI  295 
AXI  296 
AXI  297 
AXI  298 
AXI  299 
AXI  300 
AXI  301 
AXI  302 
AXI  303 
AXI  304 
AXI  305 
AX  l 306 
AXI  307 
AXI  308 
AXI  309 
AXI  310 
AXI  311 
AXI  312 
AXI  313 
AXI  314 
AXI  315 
AXI  316 
AXI  317 
AXI  318 
AXI  319 
AXI  320 
AXI  321 
AXI  322 
AXI  323 
AXI  324 
AXI  325 
AXI  326 
AXI  327 
AXI  328 
AXI  329 
AXI  330 
AXI  331 
AXI  332 
AXI  333 
AXI  334 
AXI  335 
AXI  336 
AXI  337 
AXI  338 
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EW*WE-,1D*0 

IF  <EW,GT,WI>  GO  TO  39 
WRITE  (6* 113) 

GO  TO  4 

38  EW»WI *HALF*XIE* (WIP*WEP*XIE*< WIPP^WEPP) /SIX) 

39  WE*EW 

If  < w£*GT • G2>  GO  TO  79 

IF  <DABS<EW-OW-Wl)  #LT,i,D-9>  GO  TO  43 

OW*WE-WI 

CALL  SOKCE  <WE,D> 

XE*D ( 1 ) 

WEP*0  <2) 
w£PP»D(3> 

WRPPP=D(4) 

NOCON»NOCON*1 
GO  TO  35 

40  IF  ( IO»LT *0 ) GO  TO  41 
WRITE  <6,U0)  1TLE,N4,L« 

• 41  H=THR* ( WEP*WIP) / < WIPP-WEPP) 

HM*TLV*0W/<WIPP-WEPP> 

XIE«HM/<0SQRT  *M> 

IF  <MF)  44,42, 4S 

42  EW*Wl*XlE*<WlP4THR*WEP-Xl£MWEPP-XlE*WRPPP/SlXn/F0UR 

GO  TO  39 

43  EMACH*WE/D$QRT<G7-G8*WE*WE) 

C 

C ITERATION  FOP  EMACH  COMPLETED 

EBET*OSORT (EMACH*EMACH-ONE) 
EPSI=G2*OATAN<G4*EBET)-OATAN<EBET) 

FPSI *EPSI ♦TWO*ETA/QT 
FMACH=FMV (FPSI» 

44  IF  <BMACM.GT4FMACH)  GO  TO  45 

BMACHaFMACH 

BPSI-FPSI 

MP=0 

45  GPSI*FPSI-ETA/QT 
GMACH*FMV<GP5I> 

IF  < IE«£Q»1 ) AHaGMACH 

RG»  < < G6^G5*GMACH**2) **GA/GMACH) **QT 

APSI*BPSI-ETA/OT  ^ 

AMACHaFMV(APSI) 

RA*  < (G6*G5*AMACH**2) »*GA/AMACH) **QT 
XA*RA*CSE 

IF  <SF0A,GT,7RO>  Xl£*SFOA/SF*XE-XA-.XOI 
IF  <SFOA,LT.ZRO)  XIE*XE-SfOA/SF-RG*CSE-XOI 
XlaXE-XlE 
X0*XI-X0J 

xi*xo^xoi 

IF  < 1Q«LT  »0)  GO  TO  48 

X0* ( ( G6*G5*8MACH**2) *«GA/6MACH> ♦•QT 

IF  (LC«LT.2>  XC*< <G8»G5*CMACH»*2) ••GA/CMACH) «*QT 

C<l>*Wl 

C <2)=XI£*WIP 

C<3>=HALF*WIPP*XIE*XIE 

C <4)*TEN*OW-XIE*(FOUR*WEP-HALF*XIE*WEPP)-SIX*C<2)-THR*C (3) 
C<5)*XIE*<SEV*WEP*EIT*WIP-XIEMW£PP-THR*WIPP/TW0>  )-FFTN*DW 


AXI 

339 

AX  I 

340 

AXI 

341 

AXI 

342 

AXI 

343 

AXI 

344 

AXI 

345 

AXI 

346 

AXI 

347 

AXI 
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AXI 
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AXI 
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AXI 
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AXI 
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AXI 
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AXI 

355 

AXI 
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AXI 
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AXI 

358 

AXI 

359 

AXI 

360 

AXI 

361 

AXI 

362 

AXI 

363 

AXI 

364 

AXI 

365 

AXI 

366 

AXI 
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AXI 
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AXI 
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AXI 
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AXI 

371 

AXI 

372 

AXI 
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AXI 
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AXI 
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AXI 

376 

AXI 
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AXI 
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AXI 

379 

AXI 
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AXI 

381 

AXI 

382 

AXI 

383 

AXI 

384 

AXI 

385 

AXI 

386 

AXI 

387 

AXI 

388 

AXI 

389 

AXI 

390 

AXI 

391 

AXI 

392 

AXI 

393 

AXI 
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46 


47 


48 


49 

50 


51 

52 
C 
C 

53 


C(6)*SIX*DW-THR*XIE*(WEP*WIP)*HALF*XIE*XIE*(WEPP-WIPP> 

IF  (MF .EQ.0.AND.IX.EQ.0)  C(S)*ZR0 
IF  (NR.EQ.0.AND.IX.EQ.0.AND.LR.EQ.0)  C(S)*ZR0 
IF  tSFOA.EQ.ZRO)  C(6)«Z«0 
E0E*EPSI/ETA 

W IPPP*SI X*C (4) /XIE/XIE/XIE 

WEPPP*SlX* (C (4 J ♦F0UR»C  C5> ♦TEN*C (6>  >/XIE/XIE/XIE 

WRITE  (6*99)  M*N*EOE*BMACH*CMACH*GAM*ETAO*RC*SF 

WRITE  (6*102)  SE*TK*WWO*WWOP*EMACH,FMACH*HC»AH 

IF  (LR.NF.0l  WRITE  (6*123)  WI .WAP.WAPP* AM* AMP, AKPP 

IF  (ISE.EQ.1.AND.LR.EG.0)  WRITE  (6*123)  W I *WIP,WHPP*AM*AMP* AMPP 

IF  (ISE.EQ.l)  GO  TO  67 

WRITE  (6*101)  WI.WIP.WIPP.WIPPP.WOPPP 

WRITE  (6*98)  WE* WEP*WEPP* WEPPP* WRPPP 

WRITE  (6*94)  Ctl)*C(2)*C(3) *C(4) *C(5) *C(6) 

WRITE  (6,95)  XOI*XI,XO*YO*XIE*XE*NOCON 
IF  (ISE.EQ.l)  XC*XE 
IF  (ISE.EQ.l)  XA»XE*TYE*CBET 
NOCON»0 
W I P*WHP 

IF  (QM*NE*0NE)  GO  TO  69 
IF  (PP.LT.ZRO)  FRIP*ZRO 
IF  (PP.EQ.ZRO)  FRIP*-X0*SF 
IF  (PP.GT.ZRO)  FRIP*PP-SF*XA 
IF  (IQ.LT.O)  GO  TO  50 
XOIN«SF*XO»FRIP 
X1IN*SF*X1*FRIP 
XI IN«SF#X I *FR IP 

WRITE  (6*125)  0M*X0IN*X1IN*AM*X11N 

IF  (IQ.GT.O)  GO  TO  67 

IF  (N)  87*50*68 

M*ZONK*(HD-I) *1 

JQ*1 

N*ND 

IP*  IN 

IF  (QM.NE.ONE)  RETURN 
CALL  OREZ  (C*6) 

IF  (IQ.LT.O)  GO  TO  51 
IF  (MQ.GE* 0 « ANO.N.GT .0)  GO  TO  51 
WRITE  (6*104) 

GO  TO  52 
WRITE  (6.105) 

IF  (IP)  53*67*58 

LENGTH  OF  DOWNSTREAM  VELOCITY  DISTRIBUTION*  RAOIAL  FLOW 

WC«G2*CMACH/0S0RT<CMACH*CMACK*G9) 

WB»G2*BMACH/0SQRT(BMACH*8MACH*G9) 

WCB*WC-W6 

CALL  SORCE  (WB*0) 

XB*0 ( 1 ) 

WBP*0 (2) 

WSPP*D(3) 

WSPPP»D(4) 

C 1 1 > *WB 
WCP*ZRO 

IF  (LC>  54,55*56 
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AXI  417 
AXI  418 
AXI  419 
AXI  420 
AXI  421 
AXI  422 
AXI  423 
AXI  424 
AXI  425 
AXI  426 
AXI  427 
AXI  428 
AXI  429 
AXI  430 
AXI  431 
AXI  432 
AXI  433 
AXI  434 
AXI  435 
AXI  436 
AXI  437 
AXI  438 
AXI  439 
AXI  440 
AXI  441 
AXI  442 
AXI  443 
AXI  444 
AXI  445 
AXI  446 
AXI  447 
AXI  448 
AXI  449 
AXI  450 
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54 


•^1 

U> 


55 


56 


C 

C 

sa 


XBC=THR*wCB/WBP  AXI 
W8PP*-TW0*WBP/X8C  AXI 
WRITE  <6* 109)  ITLE.N3  AXI 
GO  TO  57  AXj 
WBPPoWSPP  AX1 
IF  (MCP.LT.O)  WRITE  (6*109)  ITLE*N3  AXI 
IF  (MCP*LT • 0 ) X6CN*THR*wCB/WBP  AXI 
IF  (MCP.LT.O)  XBCM**TWO*WBP/WBPP  AXI 
IF  (MCP.GT.O)  WRITE  (6.109)  1TLE*N4  AXl 
IF  (MCP.GT . 0)  XBCN*FOUR*«CB/WBP  AXI 
IF  (MCP.GT.O)  XBCM*-THR*W8P/WBPP  AXI 
A8CM*0NE-X8CN/XBCM  AXI 
IF  (A8CM.LT.ZRO)  GO  TO  86  AXI 
XBC^XBCN/ (DSORT { ABCM) ♦ ONE)  AXI 
GO  TO  57  AXI 
WSPP*-WSPP*IP/TEN  AXI 

IF  (MCP.GT.O)  XBCMN*CU8IC(WSPPP/THR,TMft*W0PP,TLV*W0P.-TWO*TEN«WCB)AXl 
IF  (MCP.LT.O)  XBCMN«CU8IC(WSPPP/SIX.W0PP*TMR*WBP*-FOUR*WCB)  AXI 
X0CMX=FIV*WCB/(DSQRT(WBP**2.IP*WCB*WSPP/EIT) *WBP)  AXI 
IF  (XC.GT.XB^XBCMX)  XC*X8*XBCMX  AXI 
IF  <XC.LT.X0*XBCMN>  XC*XB*X0CMN  AXI 
XBOXC-XB  AXj 
IF  (MCP.LT.O)  WRITE  (6*109)  ITLE.N4  AXI 
IF  (MCP.GT.O)  WRITE  (6*109)  ITLE.N5  AXI 
C (2) *X0C*W8P  AXI 
C (3) *MALF*X8C*X0C*W0PP  AXI 
IF  (MCP.LT • 0 ) C(4)»FOUR*WCB-THR*C(2)-TWO*C (3)  AXI 
IF  (MCP.LT.O)  C(5)a-THR*WC8*TW0*C(2) *C(3)  AXI 
IF  (MCP • GT * 0 ) C(4)*TEN*WCB-SIX*C(2)-TMR*C(3)  AXl 
IF  (MCP.GT.O)  C (5) *-FFTN*WC0*E I T*C (2) ♦THR*C (3)  AXl 
IF  (MCP*GT.O)  C(6)»SIX*WC8-THR*C<2»-C(3)  AXI 
IF  (LC.LT.O)  C (5) aZRO  AXI 
IF  (LC.LE.O)  C (6) *ZR0  AXI 
XC*X8*X8C  AXI 
GO  TO  63  AXl 


LENGTH  OF  DOWNSTREAM  MACH  NO.  DISTRIBUTION*  RADIAL  FLOW 
CALL  CONIC  (BHACH.D) 

XB*DU> 

BMP«0(2) 

SMPP*D(3) 

SMPPP*D (4) 

C8M-CMACH-8MACH 

CU)  «BMACM 

6MPP*SMPP*IP/TEN 

IF  (LC.NE.O)  GO  TO  59 

IF  (MCP.LT.O)  WRITE  (6*108)  ITLE.N3 

IF  (MCP.LT.O)  XBCN*THR*C8M/0MP 

IF  (MCP.LT.O)  XBCM*-TW0*8HP/BMPP 

IF  (MCP.GT.O)  WRITE  (6.108)  ITLE*N4 

IF  (MCP.GT.O)  XBCN«F0UR*C6M/BMP 

IF  (MCP.GT.O)  X8CM*-THR*HMP/BMPP 

ABCM«ONE  *X8CN/XBCM 

IF  (ABCM.LT.ZRO)  GO  TO  88 

XBC«XBCN/(DSQRT (ABCM) *ONE> 

XC»XB*X8C 


AXl 

AXl 

AXI 

AXI 

AXI 

AXI 

AXl 

AXI 

AXI 

AXI 

AXI 

AXI 

AXI 

AXI 

AXI 

AXI 

AXI 

AXI 

AXI 

AXI 

AXI 


451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 
409 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 
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59 


60 


63 


-O 


66 

65 

66 


67 

68 
C 
C 


69 


GO  TO  62  AM 
IF  (LC.NE.l)  GO  TO  61  AM 
DO  60  K*1 .NO  AXI 
READ  (9)  AX(K),AXM(K).AXHP(K>  AXI 
IF  (K.EQ.l)  0X«XB-AX(1)  AXI 
AXIS! 1 iK>  *AX (K> *DX  AXI 
IF  (AXMP(2) .EQ.ZRO)  CALL  SCOND  (AX.AXN.AXMP.ND)  AXI 
AXMI 1 > *BMACM  AXI 
AXHP(1)»8MP  AXI 
XC»AXIS(1.ND)  AXI 
XBC*XC-XB  AXI 
WRITE  16.111)  ITLE  AXI 
GO  TO  63  A*I 
IF  (MCP.GT.O)  XBCMN»CUBICCSMPPP/THR,THR*BMPP.TLV»BMP.-TWO*TEN»CBM) AXI 
IF  (MCP.LT.O)  XBCMN*CUBIC(SMPPP/SIX.BMPP.THR*BMP.-F0UR#CBM1  AXI 
X8CMX«F IV*C8M/ (OSQRT ( BMP**2* 1 P«CBM«SMPP/E I T ) *BMP ) AXI 
IF  (XC.GT.X8.XBCMX)  XCxX8*X8CMX  AXI 
IF  <XC.LT.XB*XBCMN>  XCxX8‘X8CMN  AXI 
XBC*XC-X8  AXl 
IF  (MCP.LT.O)  WRITE  (6.108)  ITLE .NA  AXI 
IF  (MCP.GT.O)  WRITE  (6.108)  ITLE.N5  AXI 
C(2)»XBC»8MP  ' AXI 
C(3)»HALF«X8C»XBC*BMPP  AXI 
IF  (MCP.LT.O)  C(A)»F0UR*C8M-THR*C(2)-TW0»C<3)  AXI 
IF  (MCP.LT.O)  C(5)»-THR»CBM.TW0»C(2)»C(3)  AXI 
IF  (KCP.GT.O)  C(A)*TEN»CBM-SIX»C(2)-THH»C(3)  AXI 
IF  (MCP.GT.O)  C(5)X-FFTN»CBM.£IT«C(2) .THR»C(3)  AXI 
IF  (MCP.GT.O)  C(6)*SIX»C0M-THR»C(2)-C(3)  AXI 
IF  (LC.LE.O)  C(6)«ZR0  AXI 
CPP«ZR0  AXI 
CMP-ZRO  A*I 
IF  (MCP.LT.O)  CPPX(TW0»C(3).S1X«C(A)»TLV*C(5))/XBC»«2  AXl 
BPPP*5IX*C (6) /XBC/XBC/X8C  AXI 
CPPP*SIX»  (C  (A)  .FOUR*C  (5)  *TEN*C  (6)  ) /XBC/X8C/XBC  AXI 
X0»XC*TYE*C8ET  AXI 
WRITE  (6.100)  M.N.NP.GAM.ETAO.RC.SF  AXI 
IF  (IP)  6A.67.65  AXI 
WRITE  (6.116)  WB.WBP.WBPP.BPPP.WSPP.WC. WCP.CPP.CPPP.WSPPP  AXI 
GO  TO  66  AXI 
WRITE  (6.117)  BMACH.BMP, BMPP.BPPP.SMPP.CMACM.CMP.CPP.CPPP.SMPPP  AXI 
WRITE  (6.9A)  C(1).C(2).C(3).C(A),C(5).C(6)  AXI 
WRITE  (6.118)  AMACH.XA.XB.XBC.XC.XO  AXI 
XAIN«$F»XA.FRIP  AXI 
YAINxSF»XA*OTAN(ETA>  AXI 
X8IM*SF*XB.FRIP  AXI 
XCINXSF»XC*FRIP  AXl 
XDIN»SF*XO*FRIP  AXI 
TYIN«SF*TYE  AXI 
WRITE  (6.120)  XAIN.YAIN.XBIN.XCIN.XOIN.TYIN  AXI 
IF  (N)  87. A. 68  AXI 
IF  (MQ.LT.O)  GO  TO  69  AXI 

AXI 


CALCULATE  AXIAL  DISTRIBUTION  AXI 
WRITE  (6.103)  1AXIS  AXI 
FN-N-1  AXI 
L>(N.A0)/A1  AXI 
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508 

509 

510 

511 

512 

513 
51 A 

515 

516 

517 

518 

519 

520 

521 

522 

523 
52A 

525 

526 

527 

528 

529 

530 

531 

532 

533 
53A 

535 

536 

537 

538 

539 
5A0 
5A1 
5A2 
5A3 
5aa 
5A5 
5A6 
SAT 
SA8 
5A9 

550 

551 

552 

553 
SSA 

555 

556 

557 

558 

559 

560 

561 

562 
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IF  (IP'NE'O)  X IE*X8C 

AX1 

563 

IF  ( I P • NE . 0 ) XI*X8 

AX  I 

564 

O=2R0 

AX  1 

565 

00  84  K*l tU 

AXI 

566 

IF  USE. EQ.l, AND. LC.EQ.l)  GO  TO  72 

AXI 

567 

IF  (IP.NE.O)  GO  TO  70 

AXI 

560 

IF  (NX.EQ.O)  QM  <N-K)/FNM*2 

AXI 

569 

IF  ( NX  .NE . 0 ) QM  (N-K)/FnMMNX*1.D-1> 

AXI 

570 

GO  TO  7 i 

AXI 

571 

70 

IF  (LC.EQ.l)  GO  TO  72 

AXI 

572 

QMK-lJ/FN 

AXI 

573 

71 

AXISU  ♦*MXIE»G*XI 

AXI 

574 

72 

RMACH*ONE 

AXI 

575 

IF  (ISE.EQ.1)  GO  TO  75 

AXI 

576 

IF  <AXlS(l*K)  .LT.0NEM.0-9)  GO  TO  74 

AXI 

577 

AB*AXIS(1 *K) **(RGA/OT) 

AXI 

578 

IF  (A8.LT.TW0)  SMM <ONE*OSQRT<A8*GH-GM> >*«GA)**2 

AXI 

579 

IF  { AB.GE.TWO)  SM* < A8/G5) **G7 

AXI 

580 

73 

CM*SM**65 

AXI 

581 

FQ*SH* ( G6*G5*SM-CH»A9) / ( SM-ONE > /GS/G6 

AXI 

582 

SM*SM-FQ 

AXl 

583 

IF  (OAB$<FQ)  .GT.l.D-9)  GO  TO  73 

AXI 

584 

RMACH*DS«RT(SH> 

AXl 

585 

74 

IF  (IP.LT  *1)  GO  TO  78 

AXI 

586 

75 

IF  (LC.EQ.l)  GO  TO  76 

AX! 

587 

XM*CUMQMC(2MQMC<3MQMC(4MQMC(5MQ*C<6>>> ) ) 

AXI 

588 

IF  (ISE.EQ.l.OR.K.EQ.l)  GO  TO  77 

AXl 

589 

IF  (RMACH.LT.XH)  WRITE  (6.124)  K.RMACH.XM 

AXI 

590 

GO  TO  77 

AXI 

591 

76 

XM*AXM(K) 

AXI 

592 

77 

XMP=  <C  (2)  ♦OMTWO»C<3MQMTHR*C(4MQMFOUR*C<5MQ*FIV*C(6) ))) )/XlE 

AXI 

593 

IF  (LC.EQ.l)  XMP*AXMP(K) 

AXl 

594 

XMPP^TuO*  (C  O)  ♦OMTHP*C  <4)  ♦QMSIX»C(5M0*TFN*C<6)  ) 1 J/XIE/XIE 

AXI 

595 

XHPPP*SIX*  (C  <4)  *0*  <FOUR*C  <5>  ♦TEN*Q*C  (6)  ) ) /XIE/XI-/XIE 

AXI 

596 

GMM=XM*XM*G9 

AXI 

597 

GQaOSQRT (GMM) 

AXI 

598 

W*G2*XM/GQ 

AXI 

599 

WM»G9*G2/G0/GMM 

AXI 

600 

WP«WM*XMP 

AXI 

601 

WPP3WMMXMPP-TKR*XM»XMP*XMP/GMM> 

AXI 

6'02 

GMP*FIV*XM*XM*XMP*XMP/GMM-TMR*XM*XMPP-XMP*XMP 

AXI 

603 

wppp»wm*<xmppp*thr*xmp*gmp/ghm) 

AXI 

604 

IF  (MO.LT.O)  GO  TO  83 

AXI 

605 

IF  <MODtK-l*L) .NE.O)  GO  TO  83 

AXI 

606 

GO  TO  82 

AXI 

607 

78 

W=C(1MQMC<2)  ♦ QMC  (3MQMC  (4MQMC(5)  *0*C  <6>  ) ) ) ) 

AXI 

608 

WP*  (C  <2>  *Q*  <TWO*C  (3)  ♦GMTHR*C<4MQMF0UR*C<SMQ*F  !V*C<6>  ) ) ) )/XlE 

AXI 

609 

WPP=TW0MC(3) ♦0*<THR*C<4) ♦ QMSIX^C  <5MG*TEN*C  <6> ) > ) /XIE/XIE 

AXl 

610 

WPPP*StXMC<4)  *0#  (F0UR*C  (5)  ♦TEN*Q*C (6)  ) ) /XIE/XIE/XIE 

AXl 

611 

GWW*G7-W**f*G8 

AXI 

612 

IF  (GWW.GT.ZRO)  GO  TO  80 

AXI 

613 

70 

WRITE  (6,119) 

AXI 

614 

GO  TO  4 

AXl 

615 

80 

GW*DSQRT (GWW) 

AXI 

616 

XM*W/GW 

AXI 

617 

IF  (K.EQ.l.OR.K.EQ.N)  GO  TO  81 

AXI 

618 

AEDC-TR-78-63 


81 


82 

83 


OS 


84 

85 

86 

87 

88 

89 

90 

91 
C 

92 

93 

94 

95 

96 

97 

98 

99 


100 


101 


102 


IF  (1P.EQ*0.AND.RMACM.GT*XH)  WRITE  (6*124)  K.HMACH.XH  AXI 

IF  <IP.NE*O.AND.RMACH,LT*XM)  WRITE  (6*124)  K.RHACH.XM  AXI 

XMW«G7/GW/GWW  AXI 

XMP*XMW*WP  AXI 

XMPP*XMW* ( WPP*THR#G8* W*WP* WP/GWW ) AXl 

GWP*FIV*W*W*WP»WP*G8/GWW*THR*W*WPP*WP*WP  AXl 

XMPPP*XHW* ( WPPP*THR*WP*G8*GWP/GWW>  AXl 

IF  (MQ.LT.O)  GO  TO  83  AXI 

IF  (MOD(K-l*L> *NE.0>  GO  TO  83  AXI 

XINCM*SF*AXIS(1*K)*FRIP  AXI 

WRITE  (6*97)  K,AXIS(1*K)*XINCH*XM*XMP*XHPP*XMPPP.W*WP*WPP*WPPP  AXl 
IF  (MO0(K*t-l*10*U .EO.O)  WRITE  (6.115)  AXI 

AXIS(3*K)*XM  AXl 

AXIS (2*K) *2RO  AXl 

AXIS  (5? K)  *!E*HALF*  (XM-ONE/XM)  *WP/W  AXI 

X6ET»DS(JRT  < XM**2-0NE ) AXI 

AXIS(4*K)«G2*DATAN(G4*XB£T)-0ATAN(X8ET)  AXI 

IF  UQ. EQ«0. AND. IP*EQ,0*AND.M*LE.0)  GO  TO  SO  AXl 

IF  (M)  87*4*85  AXl 

IF  (IP.NE.O)  RETURN  AXI 

DO  86  K=1*N  AXI 

DO  86  J*1 *5  AXI 

TAXI (UtK>«AXIS(J*K>  AXI 

RETURN  AXI 

LV«-l  AXI 

RETURN  AXl 

WRITE  (6.114)  AXI 

GO  TO  4 AXI 

WRITE  (6,1121  AXI 

GO  TO  A AXl 

WRITE  (6*121)  NOCON  AXI 

GO  TO  4 AXI 

STOP  A*1 

AXI 

FORMAT  (1615)  AXI 

FORMAT  (8E10.0)  AXl 

FORMAT  (1H0*9X*3HC1*F11,7*3X*3HC2«F12.8.3X*3HC3*1PE15*7.3X*3MC4*,  AXI 
1E15.7,3X*3HC5=*E15.7*3X*3HC6**E15.7)  AXl 

FORMAT  (lHO*9X*4HXOI*Fl2.8*3Xt3HXI»F12.8*3X,3MXO=Fl2.8*3X*3HYO*F12AXl 
1.8*3X*4HXlE»Fl2*8,3X,3HXE*F12.8*I5*nH  ITERATIONS/)  AXl 

FORMAT  (IH  ,4X.26HCURVE  FROM  MACH  1.  XIE*F12*8.6H  C2*F1 2.8.6HAXI 

1 C3*1PE15»7*6H  C4*E15*7*6H  X1»QPF12*8  /)  AXl 

FORMAT  (IM  *I3*2F10*5*F10«6* 1P3E14 »6*0PF10.6*1P3E14»6  ) AXI 

FORMAT  <1H0*9X*3HWE*F12.8,4X*4HW£P*F12.8*4X*5HWEPP«*1PE1S.7*4X*6MWAXI 
1EPPP«*E15.7*4X*6HWRPPP»*E15,7)  AXI 


FORMAT  (1H  *4X* 31HN0.  OF  POINTS  ON  1ST  CHAR  * (M) *I3*5X,26HNO.  OF  PAXI 
101NTS  ON  AXIS  <N>»I3*5X,9HEPSI/£TA«F8*S*4X.6HBHACH*F9*5.4X*6HCMACHAXI 
2«F9.5//5X*6HGAMMA*F7.4*5*,22HINFLECTI0N  ANG.  (ETA) *F8»4*2X*7HDEGREAXl 
3ES.5X.19HRA0.  OF  CURV.  (RC) *F1 1 *6*5X. 18HSCALE  FACTOR  <SF)»F13.8)  AXI 
FORMAT  (1H  «4X*31HN0«  OF  POINTS  ON  1ST  CHAR*  (M) *I3*5X*26HN0,  OF  PAXl 
10INTS  ON  AXIS  (N)*I3*5X,33HN0*  OF  POINTS  ON  LAST  CHAR.  (NP) »I3//5XAXl 
2,6HGAMMA*F7*4.5X.22HINFLECTI0N  ANG*  (ETA) =*F8*4*2X*7Hl>EGREES*5Xt 19HAXI 
3RAD • OF  CURV.  (RC) «F13*8,5X* 18HSCALE  FACTOR  <SF)*F11.6)  AXI 

FORMAT  UH0*9X,3HWI»F12.8*4X*4HWIP*F12*8*4X.5HWIPP**1PE15.7*4X*6HWAXI 
IIPPP«*EIS.7*4X*6HW0PPP**E15,7)  AXI 

FORMAT  (1H0*4X,3HY*bF10«8.4X,6HRMASS«F10.8*4X*4HWWO»F10.7*4X.5HWWOAXI 
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620 
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643 

644 
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646 

647 
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650 
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655 
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103 


104 

105 

106 

ior 

108 

109 

110 

111 

112 

113 

114 

115 

116 


117 


118 

119 

120 

121 

122 

123 

124 

125 


C 

C 

C 


1P**FU .8*4X*6HEMACH**F8.5*4X*6HFMACH»F10.7*4X*A4*2HH«F9.5>  AXI 

FORMAT  C1H  *1X*A4/6H  POINT *4X* 1HX«7X*5HX (IN) *3X*8MMACH  NO* *4X*SHDMAXI 
1/0X*8X* 7H02M/DX2*?X*  7HD3H/DX3*  7<*6MW*Q/A**SX*SHDrf/DX*8X» 7HD2W/DX2 * AX I 
27X*7HD3W/0X3/>  AXI 

FORMAT  UH0*//>  AXI 

FORMAT  tlHl)  AXI 

FORMAT  UHl.3A4.16H  THROAT  CONTOUR*  *A4*49H-D£G  AXIAL  VELOCITY  OISTAXI 
1RIBUTI0N  FROM  SONIC  POINT/)  AXI 

FORMAT  <1H1,3A4*18H  INVISCIO  CONTOUR* *A4,A4,68h  AXIAL  MACH  NUMBER  AXl 
10ISTRI8UTION  FROM  THROAT  CHARACTERISTIC  WHICH  HAS*I4*7H  POINTS  /)  AXI 
FORMAT  UH  *3A4*20H  OOWNSTREAM  CONTOUR* *A4.35H-0EG  AXIAL  MACH  NUM8AXI 
1ER  DISTRIBUTION/)  AXI 

FORMAT  tlH  *3A4*20H  OOWNSTREAM  CONTOUR* *A4*32H-DE0  AXIAL  VELOCITY  AXI 
ID I ST R I BUT  ION/)  AXI 

FORMAT  UH1*3A4*16H  THROAT  CONTOUR. .A4.69H-DEG  AXIAL  VELOCITY  DlSTAXl 
1RI8UTI0N  FROM  THROAT  CHARACTERISTIC  WHICH  HAS*J4.7H  POINTS  /)  AXI 

FORMAT  UH  *3A4*19H  DOWNSTREAM  CONTOUR/)  AXI 

FORMAT  (1HO*38HSOLUTION  TO  CUBIC  EQUATION  IS  NEGATIVE)  AXl 

FORMAT  UM0.35HRC  IS  TOO  LARGE  TO  ALLOW  A SOLUTION)  AXI 

FORMAT  UH0*38H8MACH  IS  TOO  SMALL  TO  ALLOW  A SOLUTION)  AXI 

FORMAT  UH  ) AXI 

FORMAT  UH0*9X.3HWB»F12.8.4X*4HW8P«F12*8*4X.5HWBPP«*1PE15.7*4X*6HWAXI 
lBPPP**E15.?*5X*5HWSPP**E15.7//iOXt3HWC*OPF12.8*4X*4HWCP«F12.8*4X.  AXI 
25HWCPP**1PE15*7*4X*6HWCPPP»*E15.7*4X*6HWSPPP**E15.7  ) AXI 

FORMAT  UH0.9X*6HBMACH«F9*St4X.4HBMP*Fl2*8*4X*SHBMPP«,lPE15*7*4X*  AXI 
l6H8MPPP**El5*7*5X*5HSMPP**E15*7//l0X*6HCMACH*0PF9*5*4X*4HCMPa*Fl2.AXl 
28*4X*5HCMPP»tlPElS.7*4X*6HCMPPP**E15.7*4X.6HSMpppa*ElS*7)  AXl 

FORMAT  UK0,9X*6HAMACH*FU*7*4X*3HXA*»Fn.7t4X13HXB*fFll.7,4Xt  AXI 
14HXBC»*F11#7*4X*3HXC»*F12*7*4X*3HX0*.F12*7/)  AXI 

FORMAT  UHO*47HVELOCITY  GREATER  THAN  THEORETICAL  MAXIMUM  VALUE)  AXI 
FORMAT  UH  *9X*7HXA { IN) *.F1 1 »7*9H*  YA < IN) *«Fl 1 .7* 9H*  XB <1 N) F 12, 7AX I 
1 *9H*  XC(IN)**F12«7 *9H*  XD < IN) *.F12,?.9H*  YDUN)»,Fll#7  /)  AXI 

FORMAT  U H 1 * * NO  CONVERGENCE  IN** 14**  ITERATIONS*  ) AXI 

FORMAT  (1H1*3A4*18H  INVISCID  CONTOUR* *A4*A4*48H  AXIAL  MACH  NUMBER  AXI 
10ISTRIBUTION  FROM  SONIC  POINT  /)  AXI 

FORMAT  <1H0*9X,3HWI*F12*8#4X*4HWIP*F12*8*4X*5MWIPP*1PE15,7,4X*3HMIAXI 
1*0PF12.8*4X,4HMIP*F12,8*4X*SHMIPP*1PE15.7  ) AXI 

FORMAT  <1H  ,I3,8H  RMACH**2F12.8  > AXI 

FORMAT  UH  ,9X*4HMACH*Fn,0*3H  AT*FH.7*17H  IN.*  MACH  1 AT*F11,7AXI 


1*12H  IN.*  MACH*F1 1 *8 *3H  AT.F11*7*4H  IN.  /) 

END 

SUBROUTINE  BOUND 

TO  OBTAIN  THE  CORRECTION  DUE  TO  THE  TURBULENT  BOUNDARY  LAYER 


AXI 

AXI 

BOU 

BOU 

BOU 

SOU 

BOU 

BOU 

BOU 


IMPLICIT  REAL*8(A-H*0-Z> 

COMMON  /GG/  GAM*GM*G1 • G2  * G3  * G4  *G5.G6*  G7 *G8.G9.Ga*RGA*GT 
COMMON  /CORR/  OLA (200 > *RCO (200) *DAX (200) *DRX (200) *SL <200) *DR2 
COMMON  /COORD/  SC200) *FS(200) *WALTAN<200) *SO(200) *WMN(200) *TTR(200B0U 
1) *DMDX (200) *SPR<200> *BTA(20O) *SREF (200) *XBIN.XCIN*GMA.GMB*GMC*GMD  BOU 
COMMON  /PROP/  AR.ZO.RO* V1SC* VISM.SFOA .S8L.C0NV  BOU 

COMMON  /PARAM/  ETAD.RC*AMACH*eMACH*CMACH,EMACH*GMACH*FRC*SF,WWO.WW90U 
10P*QM*WE*CBET*XE*ETA*EPSI*8PSI*XO*YO*RRC*SOO.X8*XC*AH,PP*SE*TYE*XA80U 
COMMON  /HTTR/  HAIR. TAW. TWQ.TW*TWAT.QFUN.QFUNW* IPQ* IJ.IV* IW  BOU 

COMMON  /CONTR/  ITLE (3) . IE*LR*IT* JB.JQ. JX.KAT*K8L*KING*KO.LV*NOCON*BOU 
1IN*MC*MCP  80U 


675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

685 
666 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 
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1 


c 

3 

c 


oo 


4 


DIMENSION  I(I6)i  Dll6)i  SCV(ZOO).  SKI200).  COS(ZOO),  RW(200> 

DATA  ZRO/O. 00*0/, ONE/1. 0*0/, TWO/2. 0*0/. SIX/6, U*0/.HALF/5. 0-1/ 
DATA  THR/3. D»0/ t FOUR/4. 0*0/, TEN/1, 0*1/.TLV/1. 20.1/ 

DATA  CF1/3.865D-2/*CF2/4.561D*0/.CF3/5.460-1/.FsI/3. 178979710*0/ 
DATA  LY/4H  Y/.LS/4M  S/, DD/8HD2Y/DX2  /.DK/8M  CURV.  / 

DATA  Z(1)/.052995325D-1/.Z(4>/.12229T7958D*0/.Z(T)/.3591982246D. 
DATA  Z(2>/.2T71Z4885D-1/.Z(S>/.19106187780*0/.Z(S>/.4524937451D* 
OATA  Z(3)/.671843988D-1/,Z(&>/.27099161120*0/ 

OATA  D 11) /.I 357622970-1 /.D (2) /.31126T62D-1/.0O)/. 4757925580-1/ 
DATA  0 (4)/. 623144856D-1/*D (S)/. 7479799440-1/ tU (6)/, 8457825970-1/ 
DATA  DID/. 9130170T5D-1/. 0(8)/. 9472530520-1/ 

DO  l J»9.l6 
D(J)*0(17-J) 

Z(J)*0NE-Z(17-J> 

DO  2 J*1.KAT 
SREF(J)»S(J> 

S81N«*8IN 
SCIN«XC1N 
TRPI«C0NV/90.D*0 
FCC*H.05D*D*DL06( .410*0) 

CHAIR«GAM»G1*AR/RO/RO/77T.64885D«0 
IF  (1T.EO.O)  X8L»SBU 

READ  (5«66.EN0«6S)  PPO* TO*TWT. TWAT.OFUN. ALPH.IHT* IR.LO.LV 
PPS»PPO 

RM0«144.U«0*PPS/ZO/AR/TO 

ID*IABS(LD) 

KORsKO 

IF  (IA8StIN).E0.10)  K0R*1 
IF  (MCP.LT.O)  KOR-KING 
ROY»ONE 

IF  (IE.EO.O)  HW.AM 
IF  { (ID. £0.0) .OR. (IE.EQ.1) ) HU«ZRO 
IF  (HW.EO.ZRO)  YOH-ZRO 
IF  (HW.EO.ZRO)  YOHA*ZRO 
ALF*DAB5  ( A(_PH) 

ARC*FRC 

IF  (IHT.LT.O)  ARC»FRC»»UE*1> 

IPQ»0 

IW»1 

IF  (LV.NE.OI  IW-IABS(LY) 

DO  4 J»1*KAT 
S(J)*SREF(J) 

SL (J)*S(J) 

RW(J)«FS(J) 

RCO(J)=FS(J) 

SCW*OSQRT (ONE-WALTAN ( J) *»Z> 

SK(J)*SD(J)/SCW4«3 
IF  (KAT.EQ.KING)  GO  TO  4 
IF  (SIJ1.LT. SSL)  K8L*J*2 
DRX ( J) XWALTAN ( J> 

IF  (KBL.GT.KAT)  KBL»KAT*4 
DO  58  IV*1*IW 

IF  ((IY.GT.l) .AND. (IV.LT.IW))  GO  TO  15 
IF  (LD.GE.OI  WRITE  (6*80)  ITLE*PPS.TO 


80U 

16 

80U 

17 

BOU 

18 

BOU 

19 

80U 

20 

0/80U 

21 

O/BOU 

22 

BOU 

23 

SOU 

2* 

BOU 

2S 

BOU 

26 

BOU 

27 

BOU 

28 

BOU 

29 

BOU 

30 

BOU 

31 

BOU 

32 

BOU 

33 

BOU 

34 

BOU 

35 

BOU 

36 

BOU 

37 

BOU 

38 

BOU 

39 

BOU 

40 

80U 

41 

BOU 

42 

BOU 

43 

BOU 

44 

BOU 

45 

BOU 

46 

BOU 

47 

BOU 

48 

BOU 

49 

BOU 

50 

BOU 

51 

BOU 

52 

BOU 

53 

BOU 

54 

BOU 

55 

BOU 

56 

BOU 

57 

BOU 

58 

BOU 

59 

BOU 

60 

BOU 

61 

eou 

62 

BOU 

63 

BOU 

64 

BOU 

65 

BOU 

66 

BOU 

67 

BOU 

68 

BOU 

69 

BOU 

70 

BOU 

71 
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5 

IF  (ALRH.GT.ZR0)  GO  TO  6 

BOO 

72 

ALPHA«ZRO 

eou 

73 

IF  (LO.GE.O.OR.PRQ.EQ.ZRO)  WRITE  (6,71) 

BOU 

74 

GO  TO  7 

BOU 

75 

6 

ALPHA«ALPH 

BOU 

76 

IF  (LO.GE.O.OR.PPQ.EQ.ZRO)  WRITE  (6,70) 

BOU 

77 

7 

IF  UR.EQ.2)  GO  TO  13 

BOU 

78 

IF  (AEF.EQ.0NE)  GO  TO  8 

BOU 

79 

IF  (LO.GE.O.OR.PPQ.EQ.ZRO)  WRITE  (6,75) 

BOU 

80 

GO  TO  9 

BOU 

81 

8 

IF  (LO.GE.O.OR.PPQ.EQ.ZRO)  WRITE  (6,72) 

BOU 

82 

9 

IF  (IR)  10,11,12 

BOU 

83 

10 

IF  (LO.GE.O.OR.PPQ.EQ.ZRO)  WRITE  (6,74) 

BOU 

84 

GO  TO  14 

BOU 

85 

11 

IF  (LO.GE.O.OR.PPQ.EQ.ZRO)  WRITE  (6,73) 

0OU 

86 

GO  TO  1* 

BOU 

87 

12 

IF  (LO.GE.O.OR.PPQ.EQ.ZRO)  WRITE  (6,76) 

BOU 

88 

GO  TO  1* 

BOU 

09 

13 

IF  (LO.GE.O.OR.PPQ.EQ.ZRO)  WRITE  (6,77) 

BOU 

90 

14 

IF  (PPO.EQ.ZRO)  GO  TO  60 

BOU 

91 

IS 

CAPI*.55D*0 

BOU 

92 

IPP*0 

BOU 

93 

IJ»1 

BOU 

94 

DO  56  J*1.KAT 

eou 

95 

BET*TTR(J)-ONE 

BOU 

96 

STR«ONE/TTR(J) 

BOU 

97 

TE»TO»STR 

BOU 

98 

RAJ*WKN U) * (G7»STR) »»GA 

BOU 

99 

IF  (IHT.GE.O)  RAJ*RAJ«*QT 

BOU 

100 

SCWwDSQRT (ONE«DRX ( J) ••2) 

BOU 

101 

EMU*VISC»TE*OSQRT(TE)/(TE*VISM) 

BOU 

102 

IF  (TE.LT.V I$H)  EMU»RALF*VISC*TE/OSQRT(VlSM) 

BOU 

103 

IF  (VI5M.LE.0NE)  EMU*VISC#TE**VISH 

BOU 

104 

TAW«TE* (ONE*RO*BET) 

BOU 

105 

RHQE*RH0*STR**G1 

BOU 

106 

VE»WMN(JI *DSQRT  <GAM*AR*TE> 

BOU 

107 

REO*RHOE*VE/ERU/TLV 

BOU 

108 

IF  (HW.GT.ZRO)  rOH»FS(J)/HW 

BOU 

109 

IF  (IE. EQ.O. AND. HW.GT.ZRO)  ROY»(HW/FS( J) »ONE) »TRP1  BOU 

110 

BOU 

111 

IF  (J.EQ.l)  00  TO  19 

BOU 

112 

IF  (J«6T.K0R)  K«J-rK0R«1 

BOU 

113 

If  (K-3>  16*17*18 

BOU 

114 

16 

0S*S{J)-S(J-1) 

80U 

115 

SMD*HALF*D$ 

BOU 

116 

GO  TO  19 

BOU 

117 

17 

DT«S<J)-$(J-1> 

BOU 

118 

0$T*DS*DT 

BOU 

119 

SMA*DST* (TWO-OT/OS)/SIX 

BOU 

120 

SMC»DST* ( TWO-DS/OT  ) /SIX 

BOU 

121 

s«b«ost*sma-smc 

BOU 

122 

H8*H 

BOU 

123 

IF  (IV.GT*1)  GO  TO  19 

BOU 

124 

BMA*T*0/0S/DST 

BOU 

125 

0M8*-TWO/DS/DT 

BOU 

126 

BMC*TU0/DT/OST 

BOU 

127 

AEDC-TR-78-63 


GO  TO  19 

SOU 

128 

18 

OU»S(J>-S(J-l) 

800 

129 

DT*S(J-l)-S(J-2> 

BOU 

130 

DS«S(J-2)-S(J*3) 

BQU 

131 

DST*DS*DT 

BOU 

132 

DSTU«OST*OH 

BOU 

133 

DTU*OT*OU 

BOU 

13* 

DUT*DU-DT 

BOU 

135 

DTS*OS-OT 

BOU 

136 

DTU5*DT ♦TWO* (OU-OS) 

0OU 

137 

DTSU*DT  *TWO* ( DS-DU) 

BOU 

138 

DSTTU*TWO*(OST ♦DTU) 

80U 

139 

HA«HB 

BOU 

1*0 

HB«M 

BOU 

1*1 

QMA»HALF*DS* (ONE-OS*  t THR* < OTU ♦ DU ) /DST ) /DSTU/S1X) 

BOU 

1*2 

QHB«HALF*OS* (ONE ♦OS* ( TWO* (OST*DT  > /OTU) /DT/SIX ) 

BOU 

1*3 

QMC»-0S**3* (ONE* ( DTU*OU ) /OST) /OT/OU/TLV 

BOU 

1** 

0H0«0S**3* (OST^OT ) /DU/DTU/OSTU/TL V 

BOU 

1*S 

SMA*HALF*US* (OUT*DTU**3/OS-OS*0S* <DS*OSTTU> ) /OST/OSTU/TLV 

BOU 

1*6 

SN0*HALF*DST*  (OS*OS»  (OSTUI-OS)  /DT»0T»DT*DTUS/DS-QU*«3*  (DSTU*DST)  /DBOU 

1*T 

1S/OT) /OTU/TLV 

BOU 

1*8 

SMC«HAI_F*DTU*  <DT*DT*DTSU/OU*DU«DU* (OSTTU-DU) /OT-OS**3* (DSTU+OTU) /D80U 

1*9 

IT/DUI/OST/TLV 

BOU 

150 

SHD*HALF*DU»(0TS*0ST**3/0U-0U»DU*<DU*DSTTU> >/OTU/DSTU/TLV 

BOU 

151 

19 

IF  (TWT.NE.ZRO)  GO  TO  20 

BOU 

152 

TWTAW 

BOU 

153 

GO  TO  21 

BOU 

15* 

28 

TWO* ( ARC*RAJ-ONE 1 * (TWT-TKAT 1 / ( ARC-ONE ) 

BOU 

155 

IF  (TWD.LT.ZPO)  TWD*ZRO 

BOU 

156 

TW*TWD»mT 

BOU 

157 

21 

WMU«VISC*Tw»DSQRT (TtO/(TW»VlSM> 

BOU 

158 

IF  (VISM.LE.ONE)  WKU*VISC»TW**VISH 

BOU 

159 

DL*TW/TE 

BOU 

160 

DH*AI_PHA* ( T AW-TW ) /T£ 

BOU 

161 

ON*ONE-OL-DM 

BOU 

162 

OA*ALF*(TAW-TM) 

BOU 

163 

ob«oa»tk-te 

BOU 

16* 

IF  (DB>  22,23,24 

BOU 

165 

22 

0G«0S0RT(-08»TEI 

BOU 

166 

0H»0S0RT(-08»TW) 

BOU 

167 

01* (TWO* (0G*TE-TW> -DA)/ (TWO»OH*OA) 

BOU 

168 

DJ*DLOG(OI) 

BOU 

169 

tp—ob/dj/dj 

BOU 

170 

GO  TO  25 

BOU 

171 

23 

TP* (OSORT ( TE  > ♦DSORT (TM ) ) »*2/F0UR 

BOU 

172 

GO  TO  25 

BOU 

173 

24 

DC*DS8RT (DA*0A«F0UR*TW*08) 

BOU 

17* 

DF»DaRS1N<<08-T¥-TE)/DC> 

BOU 

175 

DE*DARS1N (OA/DC) 

BOU 

176 

TP«DB/(OF*OE)/(OF,OE> 

BOU 

177 

25 

IF  (IR)  20,27,28 

BOU 

178 

26 

FRD*TW*EMO/WMU/TP 

BOU 

179 

GO  TO  29 

BOU 

ISO 

27 

frd«e*iu/wmu 

BOU 

181 

GO  TO  29 

BOU 

182 

28 

FRO*TE*ENU/WMU/DSORT <TP*T  N ) 

BOU 

183 
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29 


30 

31 


32 

33 


34 


35 


36 


If  <IPP.GT,0>  GO  TO  31 

SOU 

IS4 

RTHt*l .0-2*REO*FS  < 1 > 

QOU 

185 

RTII*RTHI 

SOU 

186 

roli*ten*rthi 

BOU 

187 

If  (IR.EO.l)  GO  TO  32 

0OU 

IBS 

RTHG*DLQGlO (RTHI ) 

BOU 

189 

CFI*CF1/(RTHG*CF2J/(RTHG-CF3) 

BOU 

190 

IF  UR.NE.2)  GO  TO  33 

ROU 

191 

SCFI*DSQRT(CFI) 

BOU 

192 

TC»TW*17#2D*0*SCFI*DA-305.D*0#CFI*DB 

eou 

193 

CMU*VISC*TC*OSORT ITC) / (TC*VISM1 

BOU 

194 

IF  ( VlSH»LE*ONE ) CMIJ»VISC*TC**VISM 

BOU 

195 

TP*TW*CM.'/WMU 

BOU 

196 

FRD*EMU/CHU 

BOU 

197 

GO  tO  33 

BOU 

198 

RDLG«OLOG10<ROLI) 

BOU 

199 

CFI*0*0444D*0/<RDLG*4.6221D*0)/<ROLG-1.4402D*0> 

BOU 

200 

CF«CFI*T£/TR 

BOU 

201 

CFS-CF*SCW 

BOU 

202 

RTIG*OLOG10 (RTII ) 

BOU 

203 

XCF**41O*0*OSQRT(<RTIG*CF2)*(RTIG-CF3)/CFl) 

BOU 

204 

C3»TWO*CAPI*  {fSI*l 'SD»0«CAPI  > 

BOU 

205 

C2*0NE*CAPI 

BOU 

206 

C1*C2~C3/XCF 

BOU 

207 

FXCF*XCF*DLOG (C1/RTI1 ) -FCC-TWO*CAPI 

BOU 

208 

FPCP*  <XCF-FSI-THR*CAPI ) /XCF/Cl-TWO 

BOU 

209 

CAPI-CAPI-FXCF/FPCP 

BOU 

210 

IF  (OABS(fXCF) *GT*l«0-8)  GO  fO  34 

BOU 

211 

DOTI-XCF/C1 

BOU 

212 

XN*HAUF*(DOTI*DSORT{OOTI*(OOTI-SIX)40NE)*THR) 

BOU 

213 

Hl*ONE^TWO/XN 

BOU 

214 

SUKA*ZR0 

BOU 

215 

SUHB«ZRO 

BOU 

216 

SUMC-ZRO 

BOU 

217 

SUHD«ZRO 

BOU 

216 

DO  35  1*1*16 

BOU 

219 

UN*Z(U«*XN 

BOU 

220 

TR«OL*Z(U*(DM4Z(L)*DN) 

BOU 

221 

A0D*0(L)*XN*UN/TR 

BOU 

222 

BOD«ADO*Z(L> 

BOU 

223 

C0D*AD0*UN 

BOU 

224 

DOO*BDD*UN 

BOU 

225 

SUHA*SUMA*ADD 

BOU 

226 

SUMB*SUM8*BD0 

BOU 

227 

SUMC*SUHC*CDD 

BOU 

228 

SUHO»SUMO*ODO 

BOU 

229 

D0T*0NE/ (SUMA-SUMB) 

BOU 

230 

OSOO*ONE-SUMA 

BOU 

231 

DSM*HALF-$UMC 

BOU 

232 

THM*SUMC^SUMD 

BOU 

233 

HU*DS00*D0T 

BOU 

234 

IF  <IPP.GT.01  GO  TO  36 

BOU 

235 

H*HU 

BOU 

236 

OOTR*OOT 

BOU 

237 

FHY« (H*TW0-G9*BET) *OMDX  < J) *STR/WMN ( J) *ID*0RX ( J) / (RW ( J) ^HW) 

BOU 

238 

IF  (J.eQ.l)  TH-CFS/FMY 

BOU 

239 

O 


l-8Z.-H±-0Q3V 


oo 

to 


IF  (K.EQ.2)  TH«<THA«SMD*(OTHA*CFS))/'(ONE*SHD»FMY> 

IF  (K.EU.3)  TH«<THA»SH*»OTMA»SMB»OTMB»SHC*CFS)/«ONE»SHC»FMy) 
IF  JK.GT.3)  TH«<THA»SMA,OTHA«SM8*OTHB*SMC»DTHC»SMO»CFS>/(ONE» 
1MY) 

0ELST»M»TH 

ASEC»DELST*OSQRT ( I0*0ELST»»2. (FS ( Jl «SCK»R0Y> ••2) 

DOR=ID»DOTR»TH/ASEC 

OSROO'0500-OOR*OSH 

IPP-1 

00TR*0NE/ (ONE/OOT-THM»OOR) 

HR»OSROO*OOTR 

IF  (0ABS(H-HR)*LT.5.0-7>  GO  TO  37 
H*HR 

GO  TO  36 

OELTA*OOTR»TH 

TMU«DELTA/OOT 

DSU*OEI_TA»DSOO 

RDEL*REO*OELTA 

RTII*ROEL/OOTI 

ROLX*FRO*ROEU 

RTMXXROLX/OOT 

IF  (RTHX.LT. 100. 0*0>  GO  TO  38 
IF  (IR.EQ.l)  GO  TO  3« 

IF  (OAGS(ON£-aTHX/RTHtl ,LT. 1.0-6)  GO  TO  *1 

RTHI*RTMX 

GO  TO  30 

WRITE  (6*88)  RTHX*REO*FRO*  TH*OELTA*DOT 
RETURN 

IF  (0ABS(0NE*RDLX/RDL1).LT. 1.0-6)  GO  TO  *0 

RDL1*R0LX 

GO  TO  32 

RTHG*HALF» (OSQRT ( (CF2*CF3) ••2*F0UR«CF1/CF I) -CF2*CF3) 

RTHX*TEN**RTHG 

IF  (J.GT.l)  GO  TO  *2 

DTH«ZRO 

hair«rhoe*ve»cf«chair 

TAIRxHAIR 

IF  (TWAT.EO.TWT.Ofi.OFUN.EQ.2RO)  GO  TO  *6 
TWO*(HA1R«TAW*OFUN»(TWAT-15.D*0))/(HAIR*QFUN) 

CALL  HEAT 

IF  UPQ.GT.10O)  GO  TO  65 

IF  (OABS(TW-TWQ).LT.l. 0-2. AND. DABS (QFUN-QFUNW) .LT. 1,0-5)  GO 
TWT*TWAT* (TWQ-TWAT) • (ARC-ONE) / (ARCWRAJ-ONE) 

QFUNxQFUNW 
. GO  TO  20 
DTH*CFS-TH«FMY 
IF  (OTH.LT, 7R0)  OTH«ZRO 
IF  (J.EQ.KOR)  GO  TO  *6 
IF  (K-3)  A3, *5, 44 
OTHB*0TH 
60  TO  *7 

THA*THA*QHA»DTHA*OMB#OTHB-ONC*OTHC*OMO*OTH 

OTHA«DTHB 

OTHB«DTHC 

IF  (K.GT.S)  GO  TO  AS 
SCU»DSQRT  (ONE*ORX  < J-2)  m2) 


BOU 

240 

BOU 

241 

•F60U 

242 

BOU 

243 

BOU 

244 

BOU 

245 

SOU 

246 

BOU 

247 

SOU 

24S 

SOU 

249 

BOU 

250 

BOU 

251 

BOU 

252 

BOU 

253 

BOU 

254 

BOU 

255 

BOU 

256 

BOU 

257 

BOU 

258 

BOU 

259 

BOU 

260 

BOU 

261 

BOU 

262 

BOU 

263 

BOU 

264 

BOU 

265 

BOU 

266 

BOU 

267 

BOU 

268 

BOU 

269 

BOU 

270 

BOU 

271 

BOU 

272 

BOU 

273 

BOU 

274 

BOU 

275 

BOU 

276 

BOU 

277 

BOU 

278 

BOU 

279 

BQU 

280 

>6  BOU 

281 

BOU 

282 

BOU 

283 

BOU 

284 

BOU 

285 

BOU 

286 

BOU 

287 

BOU 

288 

BOU 

289 

BOU 

290 

BOU 

291 

BOU 

292 

BOU 

293 

BOU 

294 

BOU 

295 
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(X 

u> 


45 

46 


4? 


48 


49 


SO 


51 

5? 


S3 


D£LA*HAMHA 

800 

296 

IF  (<IE*EU,1> .OR. (ID.EQ.O) ) YSEC*FS ( J-2) *SCU 

800 

297 

IF  <I£.EG,0,ANO,HW.GT.ZRO)  YSEC=SCU*(FS<J-2)»HW)*TRPl 

eou 

298 

IF  (HW.GT, ZftO>  Y0MA»FS<J-2)/HW 

BOU 

299 

ASCA=DELA*0SQRT (ID*0£LA**2*Y$EC**2) 

BOU 

300 

RW{J-2>=ASCA/SCU 

BOU 

301 

OLA  < J-2 > *SCU* ( ASCA-YSEC > * < ONE^YOHA) 

BOU 

302 

RCQU-2»«FSU-2>*OUUJ-2> 

BOU 

303 

othc*oth 

BOU 

304 

GO  TO  4? 

SOU 

305 

THA=TH 

800 

306 

OTHAaDTH 

SOU 

307 

IF  < ( IV.GT.l) ♦AND. < IV.LT, ItO  ) GO  TO  47 

eou 

308 

IF  ( J*EO« 1 # AND ,LD, GE • 0 ) WRITE  (6tb2) 

BOU 

309 

COS ( J>  »ASEC-SCW*FS ( J) *«0Y 

BOU 

310 

OLA(J)aScW»Cf)S(J)*(ONE*YOH) 

BOU 

311 

RC0lJ)»FStJ>  *DLA(JT 

BOU 

312 

RW  t J) =ASEC/SCW 

BOU 

313 

IF  av.LT.lW)  GO  TO  48 

BOU 

314 

BTA  < J) *-DMDX ( J) *DSU/WMN< J) /TTR  < J) /SCW/CFI 

BOU 

315 

IF  ( J«EO* 1 »OR*J*GT *KO*0H# 1HT »EQ«0  > GO  TO  48 

BOU 

316 

IF  (M00<J»IHT) .NF« 1 ) GO  TO  48 

BOU 

317 

I J*  J 

BOU 

318 

HAIR=RHQE#VE*CF*CHAIR 

eou 

319 

CALL  HEAT 

BOU 

320 

IF  (LD»LT*0>  GO  TO  S6 

BOU 

321 

IF  (CIV*GT,l).AND»(IV«LT«Ifcf))  GO  TO  56 

SOU 

322 

CFIK=*200Q.D*0*CFI 

BOU 

323 

CFK=2000.0»0*CF 

BOU 

324 

CFSK=2000.0*0*CFS 

BOU 

325 

DTHKal000*O*0*£)TH 

SOU 

326 

CTH=TWO*TH/(ONE*OSORT (ONE-TWO*TH*IO/aS£C) ) 

BOU 

327 

CH=CDS(J>/CTH 

BOU 

328 

IEO*REO*HALF 

BOU 

329 

ITHX*RTHX*HALF 

BOU 

330 

WRITE  (6*«3)  J.TW*TE*TAw*TP,ieo*lTHX,FRO*CFlK,CFK,CFSK*H,HI 

*fmy*dtbou 

331 

lHKt  TH* DELTA tOELST 

BOU 

332 

IF  <J,LT*K8L-3)  GO  TO  54 

eou 

333 

IF  (J-K0L*2)  49,50*51 

BOU 

334 

CTHAaCTH 

BOU 

335 

XNA«XN 

BOU 

336 

DL FARDEL T A 

BOU 

337 

REOA*R£0 

BOU 

338 

GO  TO  S5 

BOU 

339 

CTHB=CTH 

BOU 

340 

XNB=XN 

BOU 

341 

DLT8*DELTA 

BOU 

342 

RE08*REO 

BOU 

343 

GO  TO  55 

BOU 

344 

IF  (J-K0L)  52,53*54 

BOU 

345 

CTHC*CTH 

eou 

346 

XNC=XN 

BOU 

347 

DLTC«OELTA 

BOU 

348 

REOC*REO 

eou 

349 

GO  TO  55 

BOU 

350 

IF  (IT.GT,0>  GO  TO  55 

BOU 

351 

AEDC-TR-78-63 


54 

55 
5$ 


00 

-P* 


58 


59 

60 


61 


DLST*GMA*COS ( J-3) ♦GMB*CDS< J-2) ♦GMC*CDS( J-l ) ♦GMD*CDS<U> 

BOU 

352 

thbl®gma*ctma*ghb*cthb»gmc*cthc*ghd*cth 

BOU 

353 

hbl*dlst/thbl 

BOU 

354 

OLT0L*GMA*DLTA+GMB*OLTB*GMC*OLTC*GMO*OELTA 

BOU 

355 

REOBL*GMA*ReOA»GMB*REOB*G«C*REOC^GMD*REO 

BOU 

356 

RE0FT*TLV*RE08L 

BOU 

357 

RETHxTMBL*REOBL 

BOU 

358 

REOL=OLT0L*REO8L 

BOU 

359 

rethg=ologio<reth> 

BOU 

360 

REDLG«DLOG10(REDL) 

BOU 

361 

xnbl=gma*xna*gmb*xnb*gmc*xnc*gmd*xn 

BOU 

362 

GO  TO  55 

BOU 

363 

IE  ( < J«GT*3> *ANO« (HOD ( J* 10) «NE»0) ) GO  TO  56 

BOU 

364 

WRITE  (6*86)  S(J> .DSU.THU*CTH.HUtH.CH*XN 

BOU 

365 

CONTINUE 

BOU 

366 

RWU>=RC0<1) 

BOU 

367 

CAUL  SCOND  (S.OLA.OAX*KAT> 

BOU 

368 

00  57  J*1 *K AT 

BOU 

369 

ORX  t J) *WALTAN< J) ♦OAX(J) 

BOU 

370 

IF  ( (IT.GT.O) .OR, (LD.LT.O) > GO  TO  58 

BOU 

371 

IF  ( ( IV.GT.l) .AND. (IV.LT.1W)}  GO  TO  56 

BOU 

372 

IF  (KBL.LE.K4T)  WRITE  (6.85)  XBL.OLST .THBL.HBL .XN8L .0LT8L .REOFT.REBOU 

373 

1TH.RETHG.REDL.REDLG 

BOU 

374 

IF  (KBL*IE.KAT)  GO  TO  58 

BOU 

375 

HBL*COS(KAT) /CTH 

BOU 

376 

REOFT*TLV*REO 

BOU 

377 

RETH«CTH*REO 

BOU 

378 

redl*oelta*reo 

BOU 

379 

RETHG*DL0G10(RETH> 

BOU 

380 

REOLG«DLOG1 0 (REOU 

BOU 

381 

IF  (KBL.GT.KAT)  WRITE  (6.85)  S <KAT> .CDS (KAT) *CTH*HBL*XN. DELTA 

•RE0F80U 

382 

lTtRETH*RETHGtREOL.REOLG 

BOU 

383 

CONTINUE 

BOU 

38* 

DD2*BMA*DLA(1 ) ♦BMB*0LA{2) ♦BMC*DLA(3) 

BOU 

385 

DR2*S0U)  *002 

BOU 

386 

OXS*DAX ll)/DR2 

BOU 

367 

XST  *S  ( 1 ) -DXS 

BOU 

388 

YST»RCO ( 1 ) -HALF*OAX { i ) **2/OR2 

BOU 

389 

SCW*OSQRT (ONE^OAX < 1 ) **2 > 

BOU 

390 

DR2«DR2/SCW«*3 

BOU 

391 

RCV»0NE/0R2/YST 

BOU 

392 

IF  (IT.GT.O)  XBlNxSBlN-XST 

BOU 

393 

IF  UT.GT.O)  XCIN=SCIN-XST 

BOU 

394 

WRITE  <6*78)  ITLE*  XB IN.XCIN.SF 

BOU 

395 

PPO*ZRO 

BOU 

396 

WRITE  <6*67)  RC.ETAOt AMACH,BMACHfC«ACH,EHACM,MC*AH 

BOU 

397 

IF  (TWT.NE.ZRO)  GO  TO  59 

eou 

398 

WRITE  (6.81)  PPS.TO 

BOU 

399 

GO  TO  5 

BOU 

400 

WRITE  <6,79>  PPS*T0.TWT.TWAT.TAIR 

BOU 

401 

GO  TO  5 

eou 

402 

IF  (IT.EQ.O)  GO  TO  63 

BOU 

403 

00  61  K«1*KAT 

BOU 

404 

S<K)*SR£F (K)-XST 

BOU 

405 

SCV(K)*OSQRT<ON£*DRX  <K)**2> 

BOU 

406 

SCVU  )*ONE 

BOU 

407 
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62 


00 

Ln 


64 


65 


C 

66 

67 

66 


69 

70 

71 

72 


SLU)«ZH0  80U 

lM*(KAT-l)/2  80U 

00  62  1*1  * I M BOU 

J»2*I  000 

SS«S(J)-S(J-l>  80U 

IF  (I.EU.l)  SS*S  <2)  80U 

TT«S( J*l)-S< J)  BOU 

ST»SS*TT  BOU 

S1*(TW0-TT/SS)*ST/SIX  BOU 

S3*  (TWO-SS/TT ) #ST /SIX  BOU 

S2*ST-Sl-$3  BOU 

SA*(TwO*TT/ST)*SS/SlX  BOU 

SB* (TWO*ST/TT) *SS/SIX  BOU 

SC«SS-SA-SB  BOU 

SL  (J ) *SL < J-l ) ♦SA*SCV < J-l > ♦S8*SCV  ( J) ♦SC^SCV ( J*l>  BOU 

SL  C J*1 > *SL (J-l > ♦Sl^SCV (U-l ) ♦S2*SCV ( J) *S3*SCV ( J*1 ) BOU 

XST*ZPO  0OU 

WRITE  <6*68 ) LS*OK  BOU 

WRITE  (6*69)  (K«S(K),SL(K) «DLA (K) ♦RCO(K) « WALT AN (K) ,S*(K> ,OAX (K) ♦ DRBOU 
1X(K) , WMN(K> , DMDX  C K l .SPR <K> ,BTA<K>  ,K*1,KAT>  BOU 

IF  (KBL.OT .KAT)  <30  TO  64  0OU 

CALL  TWIXT  <SL,GMA,GMBtGMC,GMD,S8L,KAT,KBD  BOU 

X8L*GHA*S (K8L-3) ♦GH8*S (KBL-2) ♦GMC*S (KBL-1 ) ♦GMU*S  t KBL ) BOU 

DLA9*GMA*DLA (KRL-3) ♦GHB*DLA (K8L-2) *GMC*OLA (KHL-l ) ♦GMO*OLA (KBL)  BOU 
RCOB*GMA*RCO (KBL-3) ♦GMB*RCO (KBL-2) ♦GMC*RCO (K0L-1 ) ♦GMD*RCO  <K8L>  BOU 
WRITE  <6,89)  XBL*SSL  *DL AB  *RCOB  * GMA*  GM8*GMC,GM0  BOU 

GO  TO  64  BOU 

WRITE  <6,68)  LV,00  BOU 

WRITE  (6,69)  (K,S(K),FS(K> »DLA(K) , RCO < K ) « W AL  T AN ( K ) ,SD(K) ,DAX (K) * DR80U 
lX (K> ♦ WMN IK  > , DMDX (K ) ,SPR(K) *BT  A < K ) ,K*1 ,K  AT ) 0OU 

IF  (KBL.GT.KAT)  GO  TO  64  0OU 

CALL  TWUT  <S,GMA,GMB.GMC,GMD,XBL,KAT,KflL>  BOU 

DLAB«GMA*DLA (K0L-3) ♦GMB«OLA (K0L-2) ♦GMC*OLA  (KBL-1 ) *GMD*DLA (KBL)  BOU 
RCOB*GMA»RCO (KBL-3) ♦GHB*RCO (K0L-2) ♦GMC*RCO <KBL-1 > *GmO*RCO (KBL)  BOU 
YBL*RCOB-DLAB  BOU 

WRITE  (6*84)  XBL,YBL,0LA8*RC0BtGHAtGHBfGMC,GM0  BOU 

WRITE  (6,87)  XST,YST»DD2»0R2,RCV  BOU 

S(1)*XST  BOu 

RCO ( 1 ) “Y5T  BOU 

ORX ( 1 ) *ZRO  BOU 

IF  (SBL.EQ. 1.0*3)  RETURN  80U 

IF  (LV.GT.O)  GO  TO  3 80U 

CONTINUE  BOU 

IF  ( J.EO. 1 ) WRITE  (6,90)  IPQ*0FUNW,TWT  80U 

RETURN  BOu 

BOU 

FORMAT  (6E10. 0.415)  BOU 

FORMAT  (1H  , 4H  RC*,F 11 .6, 3X, 5HET AD*F8.4 *4H  0EG,3X,6MAMACH*F1 0. 7,3XB0U 
1,6HBMACM*F10.7,3X,6HCMACH*F10.7,3X,6HEMACH=F10.7*3X,A4,2HH*FU.7/)80U 
FORMAT  (1M  ,7X,9HSTA(IN>  ,A4,40H(IN)  OELR ( IN)  R(IN>  DY0OU 

1/OX  ,A8,50H  OA/OX  Oft/DX  MACH  NO.  OM/DX  PE/PO,7BOU 
2X,4HHETA  /)  BOU 

FORMAT  ( 10 ( 14. 0P2F1 1 »6,2F1 1*7»4F10.7,F11 .7.F10.7, 1P2E12.4/) ) BOU 

FORMAT  <1H,.5X,34HQUA0RATIC  TEMPERATURE  DISTHieuTlON)  80U 

FORMAT  (1M**5X,34MPARAB0UC  TEMPERATURE  DISTRI8UT ION)  80U 

FORMAT  (1H,,44X,34HSPAL0ING-CHI  REFERENCE  TEMPERATURE)  BOU 
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00 

a\ 


73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

C 


FORMAT  <1H*.83X.36HVAN  DRIEST  REFERENCE  REYNOLOS  NUMBER  /)  0OU 

FORMAT  UH..83X.35HC0LES  LAM  REFERENCE  REYNOLOS  NUMBER  /)  0OU 

FORMAT  UH..44X.34HM0DIF,  SPALOING-CHI  REFERENCE  TEMP)  BOU 

FORMAT  (lH*,83Xt40HREFERENCE  REYNOLOS  NUMBER  BASED  ON  DELTA  /)  0OU 
FORMAT  11H..44X.29HM0DIFIE0  COLES  TRANSFORMATION  /)  0OU 

FORMAT  UH1 ,3A4,39HN02ZLfc  CONTOUR.  RADIAL  FLO*  ENDS  AT  STA.FI2.7.280U 
iSH.  TEST  CONE  BEGINS  At  STA.F1  .7.16H.  SCALE  FACTOR  *.Fl3,8/>  HOU 

FORMAT  <1H  .1X.ISHSTAG.  PRE$SURE=FS,0.24H  PSI.  ST  AG*  TEMPERATURE* .BOU 
1F5.0.21H  DEG  R.  THROAT  TEMP,3F5, 0. 19H  DEG  «♦  WALL  TEMP,*F4,0.24H  DBOU 
2EG  R.  THROAT  HT  C0EF.*F8.5//>  BOU 


FORMAT  UH1.3A4.49HBOUNOARY  LAYER  CALCULATIONS*  STAGNATION  PRESSURBOU 


1E=FS,0.28HPSI.  STAGNATION  TEMPERATURE*. F5.0.27H  OEG  R.  N BASED  ON  BOU 
2RE. DELTA  //>  SOU 

FORMAT  <1H  .5X.1SHSTAG*  PRESSURE*F5,0.24H  PSI  STAG,  TEMPERATURE*. SOU 
1F5.0.34H  DEG  R ADIABATIC  WALL  TEMPERATURE//)  SOU 

FORMAT  UH  .5X.38HTW  TE  TAW  TP  RE/IN  RTHI * BOU 

l4X,3HFRD.5X.4HKCFI.4X.3HKCF.&Xt4HrXFS*5x*lHM.t»X,2HHl.5X.38HFMY  SOU 
2 KTHP  THETA-1  DELTA  DELTA*-!  />  BOU 

FORMAT  CIH  «I3*2F6«1.F7»1.F6,1.I9. I7*4F8,5.F8,4,F7 ,4.2F8«5.F9,6  . BOU 
1F7,4.F9,6  ) QOU 

FORMAT  UH  .3HSTA.2Fll,6.2Fn,7.7X.27HlNTE«P0LATl0N  COEFFICIENTS.  .BOU 
1 F12,8.iH,*Fll.fl.lH.,Fli.8.JH.,Fl2,8/)  BOU 

FORMAT  (JH0.5H  X*fF7,3.1lH.  DELTA**. F 10,7. 1 OH.  THETA*.F9,7*60OU 

1H.  H*.F10,6.6H.  N*.FiO,7,  IOH,  DELTA*. FU . 7. IOH*  RE/FT*. FUBOU 

2,0//35X.9HRE.THETA*.F9,0.8H.  L0G*,F6«S. 1H. » l6X.9HRE.DELTAs.FI 1 , 080U 

3.8H,  L0G3.F8.5)  BOU 

FORMAT  OH  .3X.2HX*.F7 ,3.8H.  0SU*.F8,S.8h.  THU*«F9,7,8H,  CTH0OU 

1=.F9,7. 7H.  HII=,FI0,6*6H.  H*.F10,6.7H.  CH* , F 1 0 . 6 *6K,  N*.F8.90U 

25)  BOU 

FORMAT  OH  , 3HSTA.FI 1 ,6.9Ht  Y**.F1 1 ,7. 14H.  02A/0X2*.F12,9.S0U 

U4H,  D2R/DX2=.FI2,9.16H.  VISCIO  RC*.F14,8  ) BOU 

FORMAT  OH  **RTHX«'.1PE12.S**.  REO** .E12.5. • ♦ FRO** .0PF8,5. ♦ ♦ TH*»0OU 
1.F8.5.*.  PELT  A*  * .F8,5* • » D0T**.F9,5  ) 80U 

FORMAT  OH  . 3HSTA.2F1 1«6.2F11*7. 7X ♦ 27 H INTERPOLATION  COEFF ICIENTS, .BOU 
1F12.A.1H.*F1I,8.IH».F11,8.1H..F12*8  /)  BOU 

FORMAT  OHO.*  ITERATI0Nt.l4.*,  QFUN  s*.F8,5**.  THROAT  TEMP  *BOU 
1 * *F6, I / > BOU 

END  BOU 

SUBROUTINE  CONIC  (XM.B)  CON 

TO  OBTAIN  MACH  NUMBER  DERIVATIVES  IN  RADIAL  FLOW  CON 

IMPLICIT  REAL*8 ( A-H.O-Z ) CON 

COMMON  /GG/  GAM.GM.GI ,G2.G3.G4»G5.G6.G7 .G8.G9.GA.RGA.QT  CON 

DATA  ONE  1 ,D*0/.Tw0/2,D*0/.ThR/3,O*0/*FOUR/4,O*0/  CON 

DIMENSION  B<4)  CON 


XMM*XM*XM  CON 
XMM l *XMM— ONE  CON 
XMM2=XMMI**2  CON 
BMM*0NE*G8*XMM  CON 
AREA=<G6»G5*XMM) **GA/XM  C0N 
0O)*AREA**OT  CON 
B<2)*XM*BMM/0T/XMMl/BO)  CON 
C2*TWO-<ONE.THR*G8)/OT  CON 
C4*G8/QT-0NE  CON 
CMM*XMM* (C2*XMM*C4 ) -ONE-ONE/OT  CON 
B ( 3) *8 (2) *CMM/XMM2/B  < I ) CON 
DMM* (F0UR*C4*XMM*TW0*C2) /CMH-F0UR/XMM1  CON 
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B ( 4 ) bB 1 3> • < B ( 3) /B ( 2 > »XM*B  < 2>  <»DNK-ONE/e  CD) 

CON 

19 

RETURN 

CON 

20 

ENO 

CON 

21 

FUNCTION  CUBIC  (EA.E8.EC.EO) 

CUB 

1 

IMPLICIT  REAL«8<A-M,0*Z> 

CUB 

2 

c 

TO  OBTAIN  POSITIVE  REAL  ROOT  OF  CUBIC  EQUATION 

CUB 

3 

DATA  ZRO/0.0D»0/. ONE/I. 0*0/. TW0/2. D*0/.THR/3. 0*0/ 

CUB 

4 

£3*EB/THR 

CUB 

5 

Ql«EA*EC/THft-E3**2 

CUB 

6 

R1»EA*  <E3*EC-EA*ED> /TW0-E3**3 

cue 

7 

QR*0l*#3+ftl**2 

cue 

8 

RQ*OSORT (D*0S (OR) ) 

CUB 

9 

Q*0SQRT(0A8S(Q1) ) 

CUB 

10 

6*D5IGN(0NEtRl> 

CUB 

11 

CSB*-ONE 

CUB 

12 

CBC*-ONE 

CUB 

13 

C0Tl»ZRO 

CUB 

14 

CBT2«ZR0 

CUB 

15 

A-ZRO 

CUB 

16 

IF  (QR.GT.ZRO)  GO  TO  I 

CUB 

17 

IF  <QR.NE*ZRO>  A*0ARSIN(-RQ/Q1/Q)/THR 

CUB 

18 

C5A*0C0S(A) 

CUB 

19 

CSNA«OSQRT ( THR) *0SIN ( A ) 

CUB 

20 

CBA* ( T W0*8*Q*CSA-E3) /EA 

CUB 

21 

C6B»- (8*0* (CSA^CSNA) ♦ES) /EA 

CUB 

22 

CBC*- ( B*Q* (C5A-CSNA ) *E3 ) /EA 

CUB 

23 

GO  TO  2 

CUB 

24 

1 

IF  (RURO.NE.ZROI  CBTl»DSlGN(DEXP(DLOS(DABStHURQ))/THRl,Rl.RO) 

CUB 

25 

IF  (Rl-RQ.NE.ZRO)  CBT2*DSIGN(DEXP (DLOG (DABS (Rl-RQ) > /THR) .RI-RQ) 

CUB 

26 

CBA* (C8T1*CBT2-E3)/EA 

CUB 

27 

2 

IA*OSIGN(ONE.CBA) 

CUB 

28 

1B*DSIGN(0NE,CBB> 

CUB 

29 

IC*DSIGN(0NE.C8CI 

CUB 

30 

IF  (IA»IB*IC*1)  11*3*7 

CUB 

31 

3 

IF  UA.EO.l)  GO  TO  S 

CUB 

32 

IF  U9.EQ.I)  GO  TO  6 

CUB 

33 

4 

CUBIC-CBC 

CUB 

34 

RETURN 

CUB 

35 

5 

CUBIC*CBA 

CUB 

36 

RETURN 

CUB 

37 

6 

CU8IC*CB6 

CUB 

38 

RETURN 

CUB 

39 

7 

IE  ( I A*2*IB*3*IC-2)  8.9.10 

CUB 

40 

8 

IF  (C6A.GT.CBB)  GO  TO  6 

CUB 

41 

GO  TO  5 

CUB 

42 

9 

IF  (CBA.GT.CBC)  GO  TO  4 

CUB 

43 

GO  TO  S 

CUB 

44 

10 

IE  (CBB.GT.C8C)  GO  TO  * 

CUB 

45 

GO  TO  6 

CUB 

46 

u 

AA*A*9.0*1/OARSIN(ONE) 

CUB 

47 

WRITE  (6*12)  EA.EB«EC*E0«Q1*R1*QR*R0*0*AA* 

CBa.CBB.CBC 

CUB 

48 

CUBIC*-0NE 

CUB 

49 

RETURN 

CUB 

50 

c 

CUB 

51 

12 

FORMAT  <1H0,3HEA*EJ4.T.SH  EB*E14.7,5H  EC 

•E14.7.5H  E0*E14.7* 

CUB 

52 

15H  OL»E14.7,5H  RI»E14.7*5rt  QR*E14,7/5H 

RQ*£14.7,5H  • 0-EI4.7, 

CUB 

S3 

A EDC-T  R-78-63 


00 

00 


2«  t A A**  fEl4*7»*  tCBA*1 *El4*7*f  fCBt)**  *E14*7 * * ♦CBC**  tEl**7  / ) 
END 

FUNCTION  FMV  tPMA) 

C TO  OBTAIN  MACH  NUMBER  FROM  PRANDTL  MEYER  ANGLE 

IMPLICIT  REAL*8(A-H.0-2) 

COMMON  /GG/  GAM*GM*G1 *G2*G3*GA»Gb*G6«G7fG8*G9*GA*RGA?0T 

ONE=1.0*0 

THIRO*0N£/3.D*0 

VH»(OARSIN<ONE>*(PMA/ <G2-0NE>>**2)**THIRD 
Z*0NE**895D»0*< (G7* (G2-0NE) ) **2) **THIR0«DTAN (VM) 

DO  1 1*1*100 
ZBET*DSQRT<Z*Z-ONE> 

ANG=G2*0ATAN (Z8ET/G2) -OATAN (ZBETI 
REM*<ANG-PMA) *Z*(2*Z*G9) /G9/ZBET 
IF  (OA8s(HEM}*LT.1*D-10>  GO  TO  2 

1 Z*Z-REM 

2 FMV*Z-REM 
RETURN 
ENO 

SUBROUTINE  FVOGE  (X*Y*DS*DY> 

C 

IMPLICIT  REAL*8<A-H,0-Z> 

DIMENSION  X {5) f Y<5> 

DATA  H/0 •50*0/ * TWO/2* 0D»O/ 

C 

X1*X<1> 

X2«X<2> 

X3«X(3) 

X4*X<4) 

X5*X (5) 

C 

Yi*mi 
Y2*Y  <2) 

Y3«Y<3> 

Y4*Y(4) 

Y5«Y<5> 

C 

C FINO  DELTA-Y. 

F1«<X3-X1)*<X3-X2> 

Fl-TWO/Fl 

C 

F2*<X4-X3)«<X3*X2> 

F2—TW0/F2 

C 

F3*(X5-X3)*(X4-X3> 

F3*TW0/F3 

C 

Z13»X1*X2*X2-X4*X4-X5 

Al»<X2*X3-X4-X5)/Z13 

A3«<Xl*X2-X3-X4)/Z13 

C 

YP2*1«<Y2-Y1)/(X2*X1) 

YP32«  < Y3-Y2I / ( X3-X2) 

YP43» (Y4-r3> / (X4-X3I 
YP54«  t YS-Y4 > / { X5-X4) 

C 


CUB 

54 

CUB 

55 

FMV 

1 

FMV 

2 

FMV 

3 

FMV 

4 

FMV 

5 

FMV 

6 

FMV 

7 

FMV 

8 

FMV 

9 

FMV 

10 

FMV 

11 

FMV 

12 

FMV 

13 

FMV 

14 

FMV 

15 

FMV 

16 

FMV 

17 

FV 

1 

FVD 

2 

FVO 

3 

FVD 

4 

FVD 

5 

FVD 

6 

FVD 

7 

FVD 

8 

FVO 

9 

FVO 

10 

FVD 

11 

FVO 

12 

FVD 

13 

FVO 

14 

FVO 

15 

FVO 

16 

FVO 

17 

FVO 

18 

FVO 

19 

FVO 

20 

FVO 

21 

FVO 

22 

FVO 

23 

FVO 

24 

FVO 

25 

FVO 

26 

FVO 

27 

FVO 

28 

FVO 

29 

FVO 

30 

FVO 

31 

FVD 

32 

FVO 

33 

FVO 

34 

FVD 

35 

FVO 

36 

FVO 

37 
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CO 

v© 


C 


C 


C 


c 

c 

c 


c 


c 


c 


1 


2 


X2l«H»(X2*Xl> 

X32*H»(X3*X2> 

X*3=H»(X4*X3) 

X54«H»tXS«X4) 

YPP 1 * < YP3Z-YP2 H / ( X32-X2 1 ) 

YPP2«<YP43-YP32)/(X*3-X32> 

YPP3«<YP54-YP43>/(XS4-X»3> 

OS*AI »YPP J *A3»YPP3-YPP2 

FX*F2-A1«F1-A3*F3 

DY.DS/FX 

RETURN 

END 

SOSROUT£NE  MEAT 

DUMMY  TO  BE  MODIFIED  FOR  SPECIAL  CALCULATIONS  OF  HEAT  TRANSFER 
IMPLICIT  REALOft  (A-H.O-ZJ 

COMMON  /HTTR/  HAIR.TAW.TWQ.TWT.TWAT.QFUN.QFUNW.IPO.IJ.IV.IW 

OFUNM*QFUN 

RETURN 

END 

SUBROUTINE  NEO 

SMOOTH  BY  LINEAR  SECOND  DERIVATIVE 
IMPLICIT  REAL»B(A-H,0-Z> 

COMMON  /WORK/  E t*00> rZ(«00) .X 1*00) . Y 1400) »YST (400) »MTN (250) ,WAL 
1.200)  tWAX (200) .MAY<200> .WANC200) 

COMMON  /CONTR/  ITLE<3),IE.LR»IT.JB.JQ.JX»KAT«KBL.KING.KO,LV.NOC 
UN.MCfMCP.IP.IQ. ISE.JC.M.MP.MQ.N.NP.NR.NUT.NF 
DATA  ZERO/O. OD»0/.ONE/1, 0*0/. TttO/  .0*0/ 

OATA  JO/AM  UP/.J1/AHOOMN/ 

CQNV»90.D*0/DARSIN(ONE> 

TNI*DTAN(WALL(5,I)) 

IF  (JQ.EQ.O.OR.IQ.LT.O)  READ  <5. 14»END*13>  NOUP.NPCT.NODO 

IF  (JQ.EQ.O.OR.IQ.LT.O)  READ  <5. 1*.END«13)NOUP.NPCT.NODO 

IF  (JQ.ST.O)  60  TO  2 

JNmJO 

L IM*NUT 

NOTM«NOUP 

DO  1 J*1.LIM 

X(J*1)*MAX(J> 

Y(J*1)*MAY(J) 

YST(J*1)»Y<J*1> 

X(l)aTW0»X(2)-X(3) 

Y(1)*Y(3) 

X(LIM*2I»TW0«X(LIM*1)-X(LIM) 

Y(LIM*2)*Y(LIM.l).TNI«(X(LIM*2)-X(LIM*m 

SO  TO  4 

LIM»N*NP-1 

NOTM-NOOO 

JN»J1 

DO  3 J»1.LIM 
X(J*l)»KALL(l,J> 


FVD 

38 

FVD 

39 

FVD 

AO 

FVD 

*1 

FVD 

42 

FVD 

43 

FVD 

44 

FVD 

45 

FVD 

46 

FVD 

47 

FVD 

48 

FVD 

49 

FVD 

50 

FVD 

51 

H£A 

1 

HEA 

2 

HE  A 

3 

HEA 

4 

HEA 

5 

HEA 

6 

HEA 

7 

NEO 

l 

NEO 

2 

NEO 

3 

NEO 

4 

NEO 

5 

(5NE0 

6 

NEO 

7 

N.NEO 

8 

NEO 

9 

NEO 

10 

NEO 

11 

NEO 

12 

NEO 

13 

NEO 

14 

NEO 

15 

NEO 

16 

NEO 

17 

NEO 

18 

NEO 

19 

NEO 

20 

NEO 

21 

NEO 

22 

NEO 

23 

NEO 

24 

NEO 

25 

NEO 

26 

NEO 

27 

NEO 

28 

NEO 

29 

NEO 

30 

NEO 

31 

NEO 

32 

NEO 

33 

NEO 

34 

NEO 

35 

\. 
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36 

37 

38 

39 
♦0 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 
63 

84 

85 

86 

87 

88 

89 

90 

91 
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10 

c 

11 

12 

C 

13 

C 

14 

15 

16 


17 

28 

19 


C 


1 


WAY  <J)*Y  <%!♦!>  NEO 

WAN<J)*CONV*DATANtWTN<J*l> ) NEO 

RETURN  NEO 

NEO 

DO  12  U«2*LM  NEO 

WALL<2*U)*YtJ*l)  NEO 

WALL <5*U) *DATAN<WTN< J*i ) > NEO 

RETURN  NEO 

NEO 

WRITE  (6*18)  NEO 

STOP  NEO 

NEO 

FORMAT  <1615)  NEO 

FORMAT  UH  *20X* I5*2X*0P4F13*7. 18  ) NEO 

FORMAT  UH1*3A4*2X#A4*24HSTREAM  CONTOUR*  SMOOTHED* I5*19H  TIMES  WITNEO 
1M  FACTOR*. F4. 2 NEO 

2//34X*lHX*UX*6HY-CALC*7X*4HY-lNtl0X*4H0lFF  /)  NEO 

FORMAT  < 1H  ) NEO 

FORMAT  <1HO*10X*34HCARO  NOT  AVAILABLE  FOR  NEGATIVE  NF  ) NEO 

FORMAT  UH0.26X.21HMAX.  ABSOLUTE  ERROR  **  1PG15.6*10H  AT  POINT*  I5)NE0 
END  NEO 

SUBROUTINE  OFELD  <A*9*C*N0C0N)  OFE 

TO  OBTAIN  POINTS  IN  CHARACTERISTIC  NETWORK  OFE 

IMPLICIT  REAL*8(A-M,0-Z)  OFE 

COMMON  /CONTR/  ITLE<3)*IE  OFE 

OATA  ZRO/0.OD*0/*ONE/l*D*0/*TWQ/2*O*0/*HALF/5*D-l/  OFE 

DIMENSION  A ( 5) » B<5)*  C(5)  OFE 

A1*DARSIN<0NE/A<3) ) OFE 

A2*DARSIN<0NE/B<3) ) OFE 

T1«A<5)  OFE 

T2*8<5)  OFE 

IF  <IE*EO*0)  GO  TO  8 OFE 

IF  <A (2) «EO«ZRO)  GO  TO  5 OFE 

FSY1*0SIN(A<5) )/A(2)/A<3>  OF£ 

GO  TO  6 OFE 

Tl*ZRO  OFE 

FSY1*A<5)  OFE 

IF  <B<2) *EQ.ZRO)  GO  TO  7 OFE 

FSY2*D$IN<B<5) )/8<2)/B<3)  OFE 

GO  TO  8 OFE 

T2*ZRO  OFE 

FSY2*B(S)  OFE 

TN1*DTAN<T1-A1>  OFE 

IF  (B (3) «NE»ONE)  TN2*DTAN(T2*A2)  OFE 

Z*-l  OFE 

HDP$I*HALF* (A <4>»B (4) ) OFE 

HT3*HALF*<T1*T2) *HOPSI  OFE 

T3*HT3-HALF*IE*HDPSI  OFE 

HPSI3*HALF*(A<4)*B(4)*T1-T2)  OFE 

PSI3*HPSI3*HALF*IE*(T1-T2)  OFE 

C <3) *FMV IP5I3)  OFE 

T0LD-T3  OFE 

I*I*1  OFE 

FM3«C<3)  OFE 

A3*DARS1N<0NE/C(3) > .OFE 

TNA*MALF*<TN1*DTAN (T3-A3) ) OFE 


92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

1 

2 

3 

4 

5 

6 
7 
B 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 
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VO 

N> 


2 


3 

4 


I 


C 

c 

c 


IF  (ft O) «NE*ONE)  TN8«HALF*(0TAN(T3*A3)*TN2> 

IF  (ft ( 3) .EQ.ONE)  TNfl*TW0*DTAN(T3*A3) 

DTN*TNB-TNA 

X3*{ft(I)*TNB-A(l>*TNA  + A(2>-0(2>  >/OTN 
Y3*< A (2) *TNB-B (2)*TNA*t8d)-Atl>) *TNA*TNB) /OTN 
IF  <IE«EQ.O.OR.OABS<Y3> .LT.l.D-9)  GO  TO  4 
FSY3*DSIN (T3) /Y3/FH3 

P1*MALF* (FSY1 *FSY3) *<X3-A ( 1 > ) *OSQRT  <0NE*TNA**2> 
P2»HALF* (FSY2+F5Y3) * (X3-8  U> > *DSQRT (0NE*TNB**2> 
T3»HT3*HALF*(P1-P2) 

PSI3»HPS13*HALF*(P1*P2) 

C(3)*FHV<PSI3> 

IF  (DA8S(T3-T0LD> .GT.l.D-9)  GO  TO  2 
IF  (DABS  1C 1 3> -FM37 .LT. 1*0-97  GO  TO  4 
IF  U.E0.40)  GO  TO  3 
TEMP*T3 

T3*(T3*T0LD)*HALF 

TOLO®TEMP 

GO  TO  1 

N0C0N*1 

C ( 1> “X3 

C(2>  ®Y3 

C147*PS13 

C(5>*T3 

RETURN 

ENO 

SUBROUTINE  OREZ  (A*NA> 

IMPLICIT  REAL*6(A-H»0-Z> 

DIMENSION  A(l) 

DO  1 K*1*NA 
A(K)*0.Q<J*0 
RETURN 
END 

SUBROUTINE  PERFC 

TO  OBTAIN  THE  INVISCIO  CONTOUR  OF  THE  NOZZLE 


OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

OFE 

ORE 

ORE 

ORE 

ORE 

ORE 

ORE 

ORE 

PER 

PER 

PER 

PER 


IMPLICIT  REAL*8(A-H*0-Z>  PER 

COMMON  /GG/  GAM*GM*Gl*G2*G3*G4*G5*G6*G7*G8*G9tGA*RGA*GT  PER 

COMMON  /CLINE/  AXIS<S*15G> *TAXI (5*150) *WIP»X1*FRIP*Z0NK*SE0*CSE  PER 
COMMON  /COQRO/  S(200)*FS(200)*MALTAN(20Q)*SD(200) *WMN(200) *TTR(200PER 
1) *DMDX (200) ,SPR(200)*OPX(200I*SECO(200)*X8IN*XCIN*GMA*GMB*GMC»6HD  PER 
COMMON  /WORK/  A (5* 150) *8(5*150) *FINAL(5*1S0) « WALL (5*200) *WAX(200) *PER 
lWAY (200) *WAN(200>  PER 

COMMON  /PROP/  AR*ZO.RO* VlSC* V ISM* SFOA*XBL*CONV  PER 

COMMON  /PARAM/  ETAO.RC * AMACH*BMACH*CMACH*EMACH*GMACH * FRC  *SF  * WWO* WWPER 
10P*QM*WE*CBET*XE*ETA*EPSI*8PSI*XO*YO*RRCfSOO.XB*XC*AH*PP*SE.TYE*XAPER 
COMMON  /TROAT/  FC (6*517  PER 

COMMON  /CONTR/  ITLE (3) * IE*LR* IT* JB* JQ* JX*KAT*KBL*KING.KO*LV*NOCON.PER 
1 tN*MC*HCP* IP* IQ* IS£« JC*M*MP*MQ*N*NP*NF  *NUT  PER 

DIMENSION  CHAR(6* 150) * SUU50) » WDX(200>*  WTAN (200) * SCDF(200>*  YIPER 
1(100)  PER 

DATA  ZRO/O .OD^O/* ONE/ 1 *0»0/* TWO/2 .0*0/* SIX/6*0*0/t HALF/5* 0-1/  PER 

DATA  IFR/4HFIRS/*IWL/4HWALL/*LST/4HLAST/*I0L/4H  /*THR/3*D»0/  PER 
CALL  OREZ  U*4*750*2SO>  PER 

CPSI»G2*0ATAN (G4*CBET  > -OATAN (CBET ) PER 
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57 

58 

59 
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61 
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IF  (JQ.GT.O)  GO  TO  6 

PER 

24 

IF  (LR.EO.01  GO  TO  * 

PER 

25 

c 

PER 

26 

c 

THROAT  CHARACTERISTIC  VALUES 

PER 

27 

SUMAX*<SE/SE01»»<IE*1> 

PER 

28 

IF  <QH.EO.ONE>  SUMAX«ONE 

PER 

29 

LQ*Z0NK»(LR-1)*1 

PER 

30 

nl«n«lq-i 

PER 

31 

00  3 J*l.LO 

PER 

32 

IF  (QH.Nf  . ONEJj  .GO  TO  1 

PER 

33 

FC  ( 1 » J)  *FC  ( l'*J)  *SE*XO 

PER 

34 

FC (2,U>  *FC (2, J) *SE 

PER 

35 

l 

FINAL<l.J)«FCU.J> 

PER 

36 

FINAL (2*J)«FC(2,J) 

PER 

37 

EINAL(3.J)»FC(3.J) 

PER 

38 

FINAL(A.J>*FC(*.J> 

PER 

39 

FINAL (S«J>*FC(S.O) 

PER 

40 

IF  (MO.LT. 01  GO  TO  3 

PER 

41 

IF  (J.GT.ll  GO  TO  2 

PER 

42 

WRITE  (Gt 93)  ITLE 

PER 

43 

WRITE  (6.99)  IBL 

PER 

44 

2 

XHU*C0NV*DAR5IN (ONE/FINAL (3 t J) 1 

PER 

45 

PSI»C0NV*FINAL(*.J) 

PER 

46 

AN«CONV*FlNAL(S.U) 

PER 

47 

XINCH»SF*FINAL(1.J1*FRIP 

PER 

48 

YINCH*SF»F1NAL<2,J) 

PER 

49 

WRITE  (6,103)  J, (FINAL (K,  J) »K*1.3) .XMU.PSI , AN, X INCH, Y INCH 

PER 

50 

IF  (MOO(J.IO) .EQ.O)  WRITE  (6,96) 

PER 

51 

3 

SU< J) ®FC (6, J) /SUMAX 

PER 

52 

4 

IF  (ISE.EO.O)  GO  TO  8 

PER 

53 

c 

PER 

54 

c 

INITIAL  CHARACTERISTIC  VALUES  IF  NON-RADIAL  FLOW 

PER 

55 

DO  S K*1  ,M 

PER 

56 

A(2.K>«(K»1)»TYE/(H,1) 

PER 

57 

A(1,K)*A(2,K>*CBET.XE 

PER 

58 

A (3.K) “CMACH 

PER 

59 

A(*,K)*CPSI 

PER 

60 

5 

A(5,IO*2RO 

PER 

61 

GO  TO  10 

PER 

62 

C 

PER 

63 

C 

FINAL  CHARACTERISTIC  VALUES  IF  RAOIAL  FLOW 

PER 

64 

6 

NL*N»NP-1 

PER 

65 

FN*NP-1 

PER 

66 

DO  7 JJ=1.NP 

PER 

67 

IF  (1E.EO.O)  F*(JJ-I)/FN 

PER 

68 

IF  (IE.EQ.1)  F*TW0*0SIN(HALF»ETA»(JJ-1)/FN)/SE 

PER 

69 

FINAL (2,JJ)»F»TYE 

PER 

70 

FINAL(1.UJ)»FINAL(2.JJ)*CBET«XC 

PER 

71 

FINAL (3.UJ) »CHACH 

PER 

72 

F INAL (A.UJ) *CPSI 

PER 

73 

FINAL (S. JJ) »zro 

PER 

74 

? 

SU(JJ)«F«»UE.l) 

PER 

75 

C 

PER 

76 

C 

INITIAL  CHARACTERISTIC  values  if  radial  flow 

per 

77 

8 

EH»ET  A/  (MM ) 

PER 

78 

DO  9 K»1,M 

PER 

79 
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VO 

■P* 


9 


10 

11 


12 

13 

14 


15 


16 


17 

la 


19 

20 


21 


T=<K-1)*EM 

PER 

80 

IF  ( IP«£U«0 ) XMsFHV (EPS  I ♦ I/OT) 

PER 

81 

IF  (IP.NE.O)  XM*FMV(8PSI-T/0T» 

PER 

82 

R*( <G6*G5*XM**2)**GA/XM) **QT 

PER 

83 

XBET*0SQWT (XM**2-0NE> 

PER 

84 

A(l*K>aR*DCOS(T> 

PER 

8S 

A(2*K)*R*0SIN(T) 

PER 

86 

A (3*K) =XM 

PER 

87 

A ( 4 ,K> *G2*0ATAN(G4*X8ET 1 -OATAN(XBET) 

PER 

88 

A<5*K)*T 

PER 

89 

IF  ( IE»EO»  1 ♦ AND*  IP«EQ » (J)  A(5*1)XT AX 1(5*1) 

PER 

90 

IF  ( IE  <EQ« 1 ♦ AND* IP»NE  »0 ) A (5* 1 ) *AX I S (5* 1 ) 

PER 

91 

00  11  J= • *5 

PER 

92 

WALL (J*1)*A(J*M) 

PER 

93 

LINE*1 

PER 

94 

IF  (MQ*LT  *0)  GO  TO  14 

PER 

95 

IF  (ISE.EQ.l)  GO  TO  12 

PER 

96 

IF  (JQ.EQ.O)  WRITE  (6*91)  ITLE 

PER 

97 

IF  ( JQ'EQ*1 ) WRITE  (6*94)  ITLE 

PER 

98 

GO  TO  13 

PER 

99 

WRITE  (6*102)  ITLE 

PER 

100 

WRITE  (6,106)  LINE 

PER 

101 

SU(l)*ZHO 

PER 

102 

IF  (IE.EQ.O)  8X*0NE/SF 

PER 

103 

NN«1 

PER 

106 

DO  15  K»1*H 

PER 

105 

00  15  J*1 *5 

PER 

106 

8 < J*K) =A ( J*K) 

PER 

107 

LAST*«-1 

PER 

106 

GO  TO  20 

PER 

109 

LAST*M 

PER 

no 

LINE*2 

PER 

111 

IF  UP.NE.O)  GO  TO  38 

PER 

112 

00  18  J*l  *5 

PER 

113 

H(J,1)*TAXI (J,LINE) 

PER 

114 

00  19  J3i »LAST 

PER 

115 

K*J 

PER 

116 

CALL  OFELO  <A(1*K)*B(1*K) *8(1*K*1> *NOCON) 

PER 

117 

IF  (NOCON*NE.O ) GO  TO  83 

PER 

118 

CONTINUE 

PER 

119 

LASTP*LAST^1 

PER 

120 

IF  (LINE*LT,LASTP)  LP*LIN£ 

PER 

121 

NK*l*LP/52 

PER 

122 

LA«C0NV*DARSIN(0NE/8(3*NN) ) 

PER 

123 

IPRNT  *0 

PER 

124 

ICHAR*0 

PER 

125 

IF  (JC»EQ«0>  GO  TO  21 

PER 

126 

KC*IABS(JC) 

PER 

127 

IF  <UC*GT*O«ANO.JQ*NE,0>  GO  TO  21 

PER 

128 

IF  (JC#LT*0*AND.JQ.EQ,0>  GO  TO  21 

PER 

129 

ICMAR»1 

PER 

130 

IF  <KC*GT.100.AND.KC.LT,10ULINE)  iprnt*i 

PER 

131 

IF  (NN.EQ.I.ANO*MOU(LINE-1,KC) .eg*o>  iprnt*i 

PER 

132 

IF  (NN«GT»1«AN0*MOD(NN-1*i<C1 «E0»0)  iprnt*i 

PER 

133 

DO  27  JsnN.LASTP 

PER 

134 

IF  (IE'EU'l^  BX=TW0*B(2*J)/SE**2 

PER 

135 
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vD 

Ln 


C 


22 

C 


23 


24 


25 


26 

27 

C 

C 


XM*B(3,0) 

PER 

136 

XMUR*OARSlN(ONE/XH) 

PER 

137 

XMU*CONV*XHUR 

PER 

130 

PSI*B(*,0)*C0NV 

PER 

139 

AN»B(5.JI«eONV 

PER 

140 

IF  (B (2.0) .EQ.ZRO)  AN*ZRO 

PER 

141 

IF  (IP.EQ.O.OR.LA.GT.A5)  SO  TO  22 

PER 

142 

S(0)»8(1.NN>-B(1,0> 

PER 

143 

MASS  INTEGRATION  WITH  RESPECT  TO  X 

PER 

144 

OSX*ONE/OCOS(B(5.0>-XMUR> 

PER 

145 

IF  (BI2.0I .EQ.ZRO)  OSX*XM/OSQRT(XM**2-ONE) 

PE& 

146 

GO  TO  23 

PER 

147 

S(0)*8(2.0)-B(2,NN> 

PER 

140 

MASS  INT'GRATION  WITH  RESPECT  TO  Y 

per 

149 

IF  (IP.EO.0)  0SX*0NE/DSIN(XMUR*B(5, OH 

PER 

150 

IF  (IP.NE.O)  0SX*0NE/DSIN(XMUR-8(5.0)> 

PER 

151 

IF  (B (2,0) .EQ.ZRO)  OSX*XM 

PER 

152 

IF  (ICMAR.EO.O.OR.J.NE.LINE)  GO  TO  2* 

PER 

153 

CHAR(l,OI*B(l.J) 

PER 

154 

CHART  2.0) *B  (2,  J) 

PER 

155 

CHART  3.0) xXH 

PER 

156 

CHART*. 0)*XMU 

PER 

157 

CHARTS. 0)»PSI 

PER 

158 

CHARTS. 0)*AN 

PER 

159 

FS(0I*DSX*BX/<G6»G5*XM«»2>»*GA 

PER 

160 

IF  TMQ.GE.O.ANO.LENE.EQ.l)  GO  TO  2S 

PER 

161 

IF  TIPRNT.EQ.O)  GO  TO  27 

PER 

162 

IF  TO.GT.NN)  GO  TO  25 

PER 

163 

IF  (IP.EQ.O)  WRITE  (6.10*)  ITLE 

PER 

164 

IF  TIP.NE.O)  WRITE  (6.105)  ITLE 

PER 

165 

WRITE  (6.106)  EINE 

PER 

166 

IF  (TNK.GT.l).AND. (MODTO.NK) *£Q.O) ) GO  TO  26 

PER 

167 

XINCH»SF«B(1,J).FRIP 

PER 

168 

YINCH*Sf«B(2,0> 

PER 

169 

WRITE  (6.103)  0. 8(1, 0) .6(2.0). XH.XMU.PSI. AN. XINCM.YJNCH 

PER 

170 

IF  (MOD(O,10*NK).EQ.0>  WRITE  (6,98) 

PER 

171 

CONTINUE 

PER 

PER 

172 

173 

INTEGRATION  AND  INTERPOLATION  FOF  MASS  FLOW 

PER 

174 

SA«ZRO 

PER 

175 

SB*ZRO 

PER 

176 

SC*ZRO 

PER 

177 

SUH*SU(NN) 

PER 

178 

KAN* 1LASTP.NN) /2 

PER 

179 

00  28  0*1, KAN 

PER 

180 

K*NN»2*0 

PER 

181 

KT»K 

PER 

182 

AS*S(K-1)-S(K-2I 

PER 

183 

BS*S(K)-S{K-1) 

PER 

164 

CS*AS«BS 

PER 

105 

S1*(TW0-BS/AS)*CS/SIX 

PER 

106 

S3* ( TWO-AS/BS) *CS/SIX 

PER 

187 

SZ»CS*Sl-S3 

PER 

108 

ADD*S1 *FS (K-2) *S2*FS (K-I ) »S3»FS (K ) 

PER 

189 

SUM«AOO»SUH 

PER 

190 

IF  (LlNE.EQ.l)  GO  TO  28 

PER 

191 
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DEL'ONE-SUM 

PER 

192 

IF  <0£L>  3D. 29, 28 

PER 

193 

2ft 

CONTINUE 

PER 

194 

IF  (LlNE.EQ.l)  WRITE  (6.96)  SUM 

PER 

195 

IE  (LlNE.EQ.l)  GO  TO  16 

PER 

196 

BS»S(K*H-S(K> 

PER 

197 

KT»K»1 

PER 

198 

ON>TMO*OEL/BS 

PER 

199 

SC»DN/ (FS  CK) *OSQRT (FS IK) »*2* (FS (KT) -FS  <K> I *0N) I 

PER 

200 

SB«ON£>SC 

PER 

201 

GO  TO  34 

PER 

202 

29 

SC«ONE 

PER 

203 

GO  TO  34 

PER 

204 

30 

sa=es-*  (two*cs/ as)  /six 

PER 

205 

S3=SS* (TWO.AS/CS) /SIX 

PER 

206 

S1*8S-S2-S3 

PER 

207 

B00*Sl*EStK-2l»S2»FS<M-l»»S3«FS(KI 

PER 

208 

IF  tBt)D*OEL)  31.32.33 

PER 

209 

31 

DN»TWO»  ( AOD»OEL  1 /AS 

PER 

210 

SB«DN/ (FS  <K-2I .DSORT (FS (K-2) ••Z* (FS (K-l ) -FS (K-2) > »DN)  ) 

PER 

211 

S»«ONE-SB 

PER 

212 

GO  TO  34 

PER 

213 

32 

SBsONE 

PER 

214 

GO  TO  34 

PER 

215 

33 

DN*TWO*D£L/BS 

PER 

216 

SC*ONE»DN/ (FS  (K)  ♦DSQRT (FS IK) »»2. (FS(K)-FS (K-l) ) -ON) ) 

PER 

217 

SB*ONE-SC 

PER 

218 

34 

00  3S  J-l.5 

PER 

219 

35 

WALL<J»UNE)«B(J,KT-2>*SA»B<J,KT-1)*SB«8U.KT)»SC 

PER 

220 

IF  (IPRNT.EQ.l)  WRITE  (6,107)  (WALL (J, LINE) .J*l . i) 

PER 

221 

LAST»KT 

PER 

222 

IF  (N-UNE)  42,41,36 

PER 

223 

36 

LINE*LINE*1 

PER 

224 

DO  37  K»1.S 

PER 

225 

DO  37  L~1 • 150 

PER 

226 

37 

A(K.L)*B(K,L) 

PER 

227 

IF  (IP.EQ.O)  GO  TO  17 

PER 

228 

38 

DO  39  J*l«5 

PER 

229 

39 

8(3,1) *AXI$( J.LINE) 

PER 

230 

00  40  J*1.LAST 

PER 

231 

K*J 

PER 

232 

CALL  OFELO  (B ( 1 ,K ) ,A(1,K) i B ( 1 ,K, 1 ) .NOCON) 

PER 

233 

IF  (NOCON. NE.O)  GO  TO  83 

PER 

234 

40 

CONTINUE 

PER 

235 

GO  TO  20 

PER 

236 

41 

IF  (IP. NE.O)  GO  TO  42 

PER 

237 

IF  (LP.EO.O.OR.IT.NE.O)  GO  TO  49 

PER 

238 

*2 

IF  (LINE.E0.NL-D  GO  TO  48 

PER 

239 

NN«NN* 1 

PER 

240 

LINE*LINE»1 

PER 

241 

DO  43  K«1.5 

PER 

242 

00  43  L*1 » 150 

PER 

243 

43 

A(K»L)»B(K,L) 

PER 

244 

DO  44  K=i,5 

PER 

245 

DO  44  L«l»150 

PER 

246 

44 

8(K.LI*FINAL(K.L) 

PER 

247 
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*5 


f 


46 


47 

48 

C 

C 

49 


"■J 

50 

51 


52 


IF  ( (LR.NE.O) .AND. ( JQ.EO.O) ) 60  TO  46 

PER 

248 

00  45  J*NN*LAST 

PER 

249 

K*J 

PER 

250 

CALL  OFELO  (8<1*K) .AU.KJ *8(1' «♦!> tNOCON) 

PER 

251 

IF  (NOCON.NE.O)  GO  TO  83 

PER 

252 

CONTINUE 

PER 

253 

GO  TO  20 

PER 

254 

DO  47  J*NN,L*ST 

PER 

255 

K*J 

PER 

256 

CALL  OFELO  (A(1«K) .8(1. K> .NOCON) 

PER 

257 

IF  (NOCON.NE.O)  GO  TO  83 

PER 

250 

CONTINUE 

PER 

259 

GO  TO  20 

PER 

260 

IF  < IP.NE.O)  GO  TO  64 

PER 

261 

PER 

262 

INTEGRATION  OF  SLOPES 

PER 

263 

18*1 

PER 

264 

IF  <IA8S(JB> .GT.l)  10*2 

PER 

265 

LT*0 

PER 

266 

IF  (IT.NE.O)  LT*IQ 

PER 

267 

NUT*(LINE-1)/I8*2-LT 

PER 

268 

WALL( 1 .LINE^l) *X0 

PER 

269 

WALL<5*LINE*1)*ZR0 

PER 

270 

YI (NUT) *WALL (2*1 ) 

PER 

271 

Y*Yl (NUT) 

PER 

272 

LIN*2*( CLlNE-LT)/2> 

PER 

273 

00  SO  J*2*L IN*? 

PER 

274 

I«NUT-J 

PER 

275 

SS*WALL ( 1 • J) -WALL ( l .U-l ) 

PER 

276 

TT-WALL  f l»J»l >-WALL  1 1 .U) 

PER 

277 

ST»SS*TT 

PER 

278 

Sl*S$*(TWOm/ST>/SIX 

PER 

279 

S2*SS* (TWO*ST/TT) /SIX 

PER 

280 

S3»SS-S1-S2 

PER 

281 

T3*TT* (TWO»SS/ST) /SIX 

PER 

262 

T2*TT* (TWO*ST/SS> /SIX 

PER 

283 

Tl*TT-T2-T3 

PER 

284 

Y*Y ♦Sl#OTAN(WALL  (5. J— 1 ) ) ♦S2*DTAN(WALL (5* J) } ♦S3*0 TAN (WALL (5» J* 1 ) ) 

PER 

285 

IF  ( 18  »EQ. 1 ) YI ( I ♦ 1 > *Y 

PER 

286 

Y*Y^TI*0TAN(WALL(5*U-1>>*T2*DTAN(WALL(5*J) > ♦T3*0TAN< WALL (5? J* 1 ) ) 

PER 

287 

IF  U0.EQ.U  YI  ( I J *Y 

PER 

288 

IF  (IB.E0.2J  YI ( I*J/2) *Y 

PER 

289 

CONTINUE 

PER 

290 

IF  (LR.NE.O.AND.LINE.EO.LIN)  GO  TO  51 

PER 

291 

X*WALL < 1 » L INE-LT  > -XO 

PER 

292 

Villi *YI (2) -X* (OTAN ( WALL ( 5 *L INE-LT J > ♦HALF*X*SDO> /THR 

P£R 

293 

00  52  L=2*NUT 

PER 

294 

sJJ*l*IQ*(NUT-L) 

PER 

295 

WAX  <L ) *WALL ( 1 * JJ) 

PER 

296 

WAY(U*WALL(2.JU) 

PER 

297 

WHN(U*WALL(3.JJ) 

PER 

298 

WAN(L) *CONV*WALL (5# JJ) 

PER 

299 

WALTAN(L>*DTAN(WALL<S.JJ> ) 

PER 

300 

WAX ( l ) *X0 

PER 

301 

WAY ( 1 > *Y0 

PEP 

302 

WAN ( l ) *ZRO 

PER 

303 
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WMN  < 1 ) *WW0/DSQHT  <G7-G8*WW0**2> 

PER 

304 

WALTANCl  )=ZRO 

PER 

305 

IF  (NF.GE.O)  go  TO  54 

PER 

306 

c 

PER 

307 

c 

SMOOTH  UPSTREAM  CONTOUR  IF  OESIREO 

PER 

308 

CALL  NEO 

PER 

309 

00  53  J- 1 * NUT 

PER 

310 

S3 

WALT AN (J)*DTAN (WAN (JJ/CONV) 

PER 

311 

54 

CALL  SCONO  < WAX* WALTAN*SECO*NUT  > 

PER 

312 

SECO<1)=SOO 

PER 

313 

SECO (NUT ) -ZRO 

PER 

314 

KO*NUT  *MP 

PER 

315 

IF  (MP.EQ.O)  GO  TO  56 

PER 

316 

C 

PER 

317 

C 

RADIAL  FLOW  SECTION  COORDINATES 

PER 

318 

$NE=DSIN(ETA> 

PER 

319 

TNE*OTAN(ETA) 

PER 

320 

DM* (AMACH-GMACH) /HP 

PER 

321 

DO  55  L=1*MP 

PER 

322 

LL«NUT*L 

PER 

323 

WMN (LL) =GMACH*L*OM 

PER 

324 

RL*( (G5*WMN(LL)**2*G6)**GA/WMN(LL> ) **QT 

PER 

325 

WAX(LL)*RL*CSE 

PER 

326 

WAY (LL) =RL*SNE 

PER 

327 

WAN(LL>  *etad 

PER 

328 

WALTAN(LL)*TN£ 

PER 

329 

55 

SECO (LL) xZRO 

PER 

330 

56 

IF  (MQ.LT.O)  GO  TO  60 

PER 

331 

IF  ( JC«LE  *0 ) GO  TO  58 

PER 

332 

WRITE  (6*105)  1TLE 

PER 

333 

WRITE  (6*99)  LST 

PER 

334 

DO  57  K=1 *LP*NK 

PER 

335 

I* (K-l > /NK* 1 

PER 

336 

XINCH*SF*CHAR(1*K> ♦FRIP 

PER 

337 

YINCH=SF*CHAR(2*K> 

PER 

338 

WRITE  (6*103)  K* (CHAR( J*K) *J*1 *6) *XINCH*YINCH 

PER 

339 

57 

IF  (MOD (1*10) «EQ«0)  WRITE  <6.9d> 

PER 

340 

58 

IF  (ISE.EQ.O)  WRITE  (6*91)  ITLE 

PER 

341 

IF  IISE.EO.I)  WRITE  (6,102)  ITLE 

PER 

342 

WRITE  (6*84)  RC*ETAD,AMACM,8MACH*CMACH*FMACM*MC,AH 

PER 

343 

IF  (N0C0N.NE*0)  GO  TO  59 

PER 

344 

WRITE  (6*100)  I WL 

PER 

345 

WRITE  (6*85)  (K* WAX ( K) * WAY (K) * WMN (K) * WAN (K>  * WALT  AN (K) *SECO (K) 

*K*1*PER 

346 

1NUT) 

PER 

347 

IF  ( (LR.EG.O) .ANO* (N*LT,42) ) GO  TO  59 

PER 

348 

IF  ( (LR*NE.O) .AN0.(N*LR.LT*27) ) GO  TO  59 

PER 

349 

N0C0N*1 

PER 

350 

GO  TO  Sti 

PER 

351 

59 

WRITE  (6*87) 

PER 

352 

NOCON*0 

PER 

353 

C 

PER 

354 

C 

COMPARISON  OF  CONTOUR  WITH  PARABOLA  AND  HYPERBOLA 

PER 

355 

60 

DO  62  J=l*NUT 

PER 

356 

XS* (WAX (J)-XO> /YO 

PER 

357 

XS2*XS**2 

PER 

358 

XS3*XS**3 

PER 

359 
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YS«WAY(J)/YO 

PER 

360 

YE«YI <J)/YO 

PER 

361 

P$«0NE*HALF*XS2*RRC 

PER 

362 

DHP*0NE*XS2»RRC 

PER 

363 

HS*DSQRT (OHP) 

PER 

364 

IF  IO.6T.ll  00  TO  61 

PER 

365 

IF  (MO.LT.O)  GO  TO  62 

PER 

366 

WRITE  <6.88)  J.XS,YS,YE,PS,HS 

PER 

367 

GO  TO  62 

PER 

368 

61 

YPX*WALTAN(J)/XS 

PER 

369 

CY»tPS-YS)/X$3 

PER 

370 

CI*(PS-YE)/XS3 

PER 

371 

IF  (J.EQ.2)  ICY* I .0.6* (DABS ( CY) -DABS (Cl ) ) 

PER 

372 

IF  (MO.LT.O)  GO  TO  63 

PER 

373 

CYP* (RRC-YPX) /XS/THR 

PER 

374 

WRITE  <6,88)  J.XS.YS.YE.PS.HS.CY.CI.CYP 

PER 

375 

62 

IF  (MOD(J.IO).EQ.O)  WRITE  <6.98) 

PER 

376 

63 

WRITE  <6.971  ICY 

PER 

377 

IF  <IQ.GT.O)  GO  TO  70 

PER 

378 

JQ*l 

PER 

379 

RETURN 

PER 

380 

64 

LINE«NL 

PER 

381 

DO  65  J*l,5 

PER 

382 

65 

WALL  ( J.NL) *FINAL  < J.NP) 

PER 

383 

C 

PER 

384 

C 

SMOOTH  DOWNSTREAM  CONTOUR  IF  DESIRED 

PER 

385 

IF  (NF.LT.O)  CALL  NEO 

PER 

386 

DO  66  J*1,NL 

PER 

387 

WOX  < J) *WALL  < 1 , J) 

PER 

388 

66 

WTAN  < J)*DTAN<  WALL  <5, J) ) 

PER 

389 

CALL  SCONO  < WOX.WTAN.SCDF.NL) 

PER 

390 

SC0F<1)*ZR0 

PER 

391 

SCDF  <NL) *ZRO 

PER 

392 

IF  I JC.OE.O)  GO  TO  68 

PER 

393 

WRITE  (6,104)  ITLE 

PER 

394 

WRITE  <6,99)  IFR 

PER 

395 

00  67  K*l.LP«NK 

PER 

396 

I-<X-l)/NK.l 

PER 

397 

X INCH*SF*CHAR U ,K) »FRIP 

PER 

398 

YINCH*SF*CHAR  <2.K) 

PER 

399 

WRITE  <6,103)  K. <CHAR<J.K),J*1,6),XINCH,Y1NCH 

PER 

400 

67 

IF  <MOD< 1,10) ,EQ,0)  WRITE  <6.98) 

PER 

401 

68 

IF  (1Q.LT.0)  K0*1 

PER 

402 

NAG*K0-1 

PER 

403 

KING*LINE»NA6 

PER 

404 

00  69  L-l.LINE 

PER 

405 

wax<nag»l>*wall<I.L) 

PER 

406 

WAY(NAG»L)*WALL<2,L) 

PER 

407 

WMN  < NAG*L ) *WALL 1 3.L ) 

PER 

408 

WAN<NAG»L)*CONV*WALL (5«L> 

PER 

409 

waltan inag.l ) *WTAN  <L ) 

PER 

410 

69 

SECO<NAG*L)*SCDFIL) 

PER 

411 

IF  (MO.LT.O)  GO  TO  71 

PER 

612 

WRITE  <6. 94)  ITLE 

PER 

413 

WRITE  <6,84)  RC, ETAO, AHACH,BMACH,CMACH.EMACH,MC, AH 

PER 

414 

WRITE  (6,100)  IWL 

PER 

415 
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100 


WRITE  (6,85)  <K*WAX<K) ♦WAY<K> ,WMN(K> #WAN(K> ,WALTAN<K) ,S£CD<K) 

♦K«KOP£R 

416 

1 # KING) 

PER 

417 

GO  TO  71 

PER 

418 

TO 

KING*K0 

PER 

419 

C 

PER 

420 

C 

APPLICATION  OP  SCALE  FACTOR  TO  NON-DIMENSIONAL  COORDINATES 

PER 

421 

n 

00  72  K=1 tKlNG 

PER 

422 

S(K)*SF*WAX (K) +FRJP 

PER 

423 

fS<K)=Sf*WAY{K) 

PER 

424 

TTR (K> *0NE*G8*WMN (K) *#2 

PER 

425 

SPR(K)*ONE/TTft(K)**(ONE*Gi) 

PER 

426 

72 

SO(K)*SECO<K)/SF 

PER 

427 

IF  (ISE.EQ.I)  X8IN*ZRQ 

PER 

428 

IF  ( ISE»EQ»0)  X8IN*XB*SF*FRIP 

PER 

429 

XCIN*XC*SF ♦FRIP 

PER 

430 

CALL  SCONO  (StWMNtOMDXtKlNG) 

PER 

431 

OMDX ( 1 ) *G7*WW0P*WMN  < 1 ) **3/WW0*#3/SF 

PER 

432 

IF  (HP*EQ«0«OR* IO«LT *0)  GO  TO  74 

PER 

433 

po  73  KaNUTfKO 

PER 

434 

73 

OMDX  C K ) * WMN (K ) *TTR  <K> / ( WMN < K ) ♦*2-0NE ) /QT/Sf /WAX ( K ) 

PER 

435 

GO  TO  75 

PER 

436 

74 

IF  (ISE.EQ.O)  DMOX(KO)«AHACH*TTR(KO)/(AMACH**2-ONE)/OT/SF/XA 

PER 

437 

75 

IF  (IO«LT*1«OR*ISE*EQ*1)  OMDX (KING) *ZRO 

PER 

438 

00  76  K=1*KING 

PER 

439 

76 

OPX(K)*-GAM*WMN(K) *0MOX (K)*SPR<K)/TTR(K) 

PER 

440 

J0*0 

PER 

441 

KAT*KING 

PER 

442 

IF  ( 1 A6b (MO) «LT *2)  GO  TO  78 

PER 

443 

C 

PER 

444 

C 

EXTENSION  OF  PARALLEL-FLOW  CONTOUR 

PER 

445 

KIT*KING>1 

PER 

446 

KAT*KING*IABS(MG) 

PER 

447 

Kin  «S IKING) *WALF 

PER 

448 

INC*S (KING) -S (KING^l ) 

PER 

449 

IF  (INC.LT.l)  INC*1 

PER 

450 

00  77  K«KIT*KAT 

PER 

451 

S(K)*KUT*(K-KING)*INC 

PER 

452 

FS(K)»FS(KING) 

PER 

453 

WMN (K) *wMN (KING) 

PER 

454 

TTR (K)*TTR {KING) 

PER 

455 

SPR(K)»SPR{KING) 

PER 

456 

WAN (K) *ZRO 

PER 

457 

WALTAN(K) =ZRO 

PER 

458 

OMOX(K)«ZRO 

PER 

459 

OPX(K)*ZRO 

PER 

460 

77 

SD(K)«ZRO 

PER 

461 

78 

IF  ( X8L«E0«ZR0)  GO  TO  79 

PER 

462 

IF  (S(KING-I) tLT*XBL)  GO  TO  79 

PER 

463 

C 

PER 

464 

C 

INTERPOLATE  FOR  VALUES  AT  SPECIFIED  STATION 

PER 

465 

CALL  TWlXT  <S»GMA*GMB*GMCtGMD(-BLtKING*K8L) 

PER 

466 

GO  TO  80 

PER 

467 

79 

KBL*KAT»4 

PER 

468 

80 

IF  ( JB«GT »0)  RETURN 

PER 

469 

IF  ( 1SE»EQ»0)  GO  TO  81 

PER 

470 

WRITE  (6,102)  ITLE 

PER 

471 
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82 


83 

C 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 


100 

101 

102 

103 

104 

105 

106 


107 


WRITE  (6,92)  RC,SE,XCIN  PER 

60  TO  82  PER 

IF  (1Q«GT ,0)  WRITE  (6,911  ITLE  PER 

IF  { IQ,LE«0)  WRITE  (6,95)  1TLE«X8IN,XCIN,SF  PER 

WRITE  (6,84)  RC,ETAO,AMACH,BMACH*CMACH,EHACH,mC.AH  PER 

WRITE  (6,89)  PER 

WRITE  (6,90)  (K,S(K) ,FS (K) , WALT AN (K) ,SO(K  > ,WMN  <K) ,0MDX(K) ,SPR(K) ,0PE« 

1PX(K) ,K*1,KING>  PER 

IF  (KBL»G? *KAT)  return  per 

J*KBL-1  PER 

FSX«GMA*FS ( J-2) ♦GM0*FS (J-l ) ♦6MC»FS ( J> ♦GMD*FS  <0^1 > PER 

WHNX*GMA*WMN ( J-2> ♦GM0*WMN < J~  1 > ♦G«C*WMN ( J ) ♦GMU*WMN ( J* 1 ) P£R 

OMXX*GMA*0MDX ( J-2) ♦GHB*OMOX (J-l ) ♦GMC*DMDX ( J) ♦GMO*DMDX ( J* 1 ) PER 

DYDX*GMA*WALTAN(J-2> ♦GM8*WALTAN< J-i ) ♦GMC*WALTAN< J) ♦GMD*WALTAN (J*l )P£R 
5DX«GMA*5D  (J-2 ) ♦GMB*S0  ( J-l ) ♦GHO50  ( J ) ♦GMD*SO  ( J*  I ) PER 

SPRX*GMA*SPR ( J-2> ♦GMB*SPR ( J-l > ♦GMC*SPR ( J>  *G«D*5PR ( J* 1 ) PE« 

DPXX=GMA*DPX(J-2) ♦GHB*DPX (J-l) ♦GMC*OPX (J>  *GMD*DPX ( J, 1 ) PER 

WRITE  (6,101)  xbl,fsx,dydx,sdx,wmnx,omxx,sprx,dpxx  PER 

return  per 

WRITE  (6,86)  IP,NN,LINE,J  PER 

RETURN  PER 

PER 

FORMAT  <1H  ,4H  RC=»F1 1 .6, 3X »5HET AD*F8, 4 , 4H  0EG,3X ,6HAMACH*F10, 7,3XPE« 

I, 6HBHACH*Fl0,7,3X,6HCMAC-*Fl0#7,3X»6HEMACM*Fl0,7,3x,A4,2HH»Fn .7/JPER 

FORMAT  ( 1 0 (8X, I3,2X, 1P6E15,7/) ) PER 

FORMAT  <1MO,9HOFELOX1P*.I3,5H,  NN*,I3,7H,  LInE*,I3,8H,  POINT*, 13  )PE« 
FORMAT  UH  ,9X, ‘POINT  X/YO*  ,8X,  * Y/YO*  , 7X , *INT , Y/YO*  , 7X,  *PAR/YOP£R 

1* *7X, *HYP/Y0  C(Y) *,11X,*C(YI) *,10X,*C(YP> * /)  PER 

FORMAT  (1H  *9X,I3,5F13,7,1P3E15.6  ) PER 

FORMAT  (IH  t9X,SHPOINT,7X,5MX(lN) ,9X,5HY(IN) , 9X • 5H0Y/0X , 8X , 7HD2Y/DPER 
1X2,7X,8MMACH  NO, , 7X ,5HOM/OX ,9X ,5MPE/P0 , 1 i X * 6HOPR/DX/ ) PER 

FORMAT  ( 1 0 ( 1 OX, I3,2X«  0P6F 14 , 7, 1P2E 1 6 ,5/ ) ) PER 

FORMAT  (1H1,3A4,17H  UPSTREAM  CONTOUR/)  PER 

FORMAT  UH  ,*  RCa  STREAMLINE  RATIO**  ,Fl  1 .8,  * , TESTPER 

1 CONE  BEGINS  AT*  »F12,7» » IN,*  / > PER 

FORMAT  UHU3A4.22H  THROAT  CHARACTERISTIC  ) PER 

FORMAT  (1HU3A4,19H  OOWNSTREAM  CONTOUR/)  PER 

FORMAT  UH1,3A4,45H  1NVI5C10  NOZZLE  CONTOUR*  RADIAL  FLOW  ENOS  ATF1PER 

II , 6,25H  IN,,  TEST  CONE  BEGINS  ATFH,6,19H  IN,,  SCALE  FACT0R*F9.4/> PE« 

FORMAT  UH0,8X,6HMASS  *,F13,10)  PER 

FORMAT  UM0,9X,5HICY  *,I13  / ) PER 

FORMAT  UH  ) PER 

FORMAT  UH  ,8X*A4/8X,5HPOINT,8X,1HX,UX,IHY,IOX,68HMACH  NO,  MPER 

lACM  ANG, (0)  PSI  (0)  FLOW  ANG, <D)  X ( IN) ,9X,5HY ( IN) /> P£R 

FORMAT  UH  ,8X,A4/8X,5HP0INT,8X,1HX, 14X,1HY,10X,37HMACH  NO,  FPER 

ILOW  ANG, (0)  WALTAN,9X,6HSEC0IF/)  P£R 

FORMAT  UH0*14X,6F14,7,1P2E16.5)  PER 

FORMAT  UH1,3A4,17H  INVISCID  CONTOUR/)  PE« 

FORMAT  UH  , I 10 ,2X, 1P6E15,7,0P2F14,7)  PER 

FORMAT  (1H1,3A4,33H  INTERMEDIATE  LEFT  CHARACTERISTIC  />  PER 

FORMAT  UH1,3A4,34H  INTERMEDIATE  RIGHT  CHARACTERISTIC  /)  PER 

FORMAT  UH  ,8M  CHARACTtl4/8X,5MPOlNT»8X,lHX,l4XUHY,10X,68HMACH  NOPER 

1,  MACH  ANG, (D>  PSI  (0)  FLOW  ANG, (D)  X ( tN) ,9X,SP£R 

2HY (IN)  /)  PER 

FORMAT  ( 1H0, 12H  CONTOUR  ,1P3E15,7  ) PER 

END  PER 
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SUBROUTINE  PLATE 

PLA 

1 

OUMMY  TO  BE  MODIFIER  FOH  SPECIAL  CALCULATIONS  FOR  FLEXIBLE  PLATE 

PL  A 

2 

IMPLICIT  HEAL*8(A-H,0-Z) 

PLA 

3 

COMMON  /JACK/  SJ  (30) *XJ (30  > #YJ(3Q> » AJ (30) 

PLA 

4 

RETURN 

PLA 

5 

END 

PLA 

6 

SUBROUTINE  SCONO  <A*8*C*KlNG) 

SCO 

1 

TO  OBTAIN  PARABOLIC  DERIVATIVE  OF  CURVE  (UNEQUALLY  SPACED  POINTS) 

SCO 

2 

IMPLICIT  REAL*8(A-H*0-Z> 

SCO 

3 

DIMENSION  A ( 300) * 8(300)*  C(300> 

SCO 

A 

NxKING-1 

SCO 

5 

00  1 K=2*N 

SCO 

6 

SxA(K)-A(K-l> 

SCO 

7 

T=A(K*1)-A(K) 

SCO 

8 

C <K)x< (8<K*1)-B<K) >*S*S* (B(K)-B (K-l ) ) *T*T> / (S*S*T*$*T*T) 

SCO 

9 

S0=A(2)-A<1) 

SCO 

10 

TO=A(3)-A<2) 

SCO 

11 

GO*SO*TO 

SCO 

12 

C ( 1 ) * (-TO* (QO*SO) *B ( I) ♦00*00*8(2) -SO*SO*B (3) > /OO/SO/TO 

SCO 

13 

SF*A (KING-1) -A (KING-2) 

SCO 

14 

TF*A (KING) -A (KlNG-l ) 

SCO 

IS 

QF*SF*TF 

SCO 

16 

QST*QF*SF*TF 

SCO 

17 

C (KING) * (SF*  <QF*TF) *B (KING) -0F*QF*8 (K ING-1 ) ♦TF*TF*B (KING-2) ) /OST 

SCO 

18 

RETURN 

SCO 

19 

ENO 

SCO 

20 

SUBROUTINE  SORCE  (W.B) 

SOM 

1 

TO  OBTAIN  VELOCITY  DERIVATIVES  IN  RADIAL  FLOW 

SOR 

2 

IMPLICIT  REAL*8(A-H,0-Z) 

SOR 

3 

COMMON  /GG/  GAM*GM*G1*G2*G3,GA*GS*G6*G7*G8*G9*GA*RGA*0T 

SOR 

A 

DATA  ONE/1  .()♦  0/* TWO/2 •0*0/ *THR/3*D*0/t FOUR/A *l)*0/ 

SOH 

5 

DIMENSION  8(A) 

SOR 

6 

WWxW*W 

SOR 

7 

AL*G7*G9 

SOR 

8 

AWWxAL-WW 

SOR 

9 

WWlxWW-ONE 

SOR 

10 

AREA= ( ( ( AL-QNE ) /AWW) *»G1 ) /W 

SOR 

a 

B ( 1 ) *AREA**QT 

SOR 

12 

AXW*AL*wWi*8<l) 

SOR 

13 

B(2)=W*AWW/AXW/QT 

SOR 

IA 

C2*THR/0T  *AL* (TWO-ONE/QT) 

SOP 

IS 

C4aAL*0N£/OT 

SOR 

16 

CWWsWW* (C2-WW*C4 ) -AL* (ONE ♦ONE/QT) 

SOR 

17 

B(3)sR (2) *CWW/AXW/WWi 

SOR 

18 

DWWx(TW0*C2-F0UR*C4*ww) /CWW-F0UR/WW1 

SOR 

19 

8 (A) xB (3) *(8(3) /ft<2> ♦W*B(2)*DWW-0NE/B  (1 > ) 

SOR 

20 

RETURN 

SO« 

21 

END 

SOR 

22 

SUBROUTINE  SPLIND  (X*Y • TNZ*TNL*L) 

SPL 

1 

COMPUTE  CUBIC  COEFFICIENTS  FOR  A CURVE  X-Y 

SPL 

2 

IMPLICIT  REAL *8 ( A-H*0-Z) 

SPL 

3 

COMMON  /COEF/  E (5*200 )*NE 

SPL 

A 

COMMON  /WORK/  A ( 300 ) *8 (300 ) ,C (300 ) *0 ( 300) *G < 300) *SB(300) *XM(300) ♦ 

OSPL 

S 

IX (300) *0Y (300) 

SPL 

6 

DIMENSION  X(l>  • Y ( 1 ) 

SPL 

7 

DATA  ZERO/0*OD*0/*ONE/UO*0/*TMR/3*0*0/*SIX/6.D*0/ 

SPL 

8 
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CALL  ORE2  <E*5*200> 

SPL 

9 

CALL  0 REZ  <At9*300) 

SPL 

10 

DX<l>*ZERO 

SPL 

n 

DV<l>«ZERO 

SPL 

12 

N»L-1 

SPL 

13 

DO  1 K*2tL 

SPL 

14 

DX<K)*X{K)-X(K-l) 

SPL 

IS 

DY<K)*Y(K)-Y<K-l> 

SPL 

16 

SPL 

17 

6U)«0X  (2I/THR 

' SPL 

18 

C < 1 > »0X (2) /SIX 

SPL 

19 

0 ( U *DY (2> /OX t2)-TNZ 

SPL 

20 

A(L>*0X(L>/SIX 

SPL 

21 

B(L>  «DX(L)/THR 

SPL 

22 

D{L)»TNL-OY(L)/OX(L) 

SPL 

23 

A ( 1 ) *ZERO 

SPL 

24 

DO  2 K*2*N 

SPL 

25 

A (K) *DX  <K) /SIX 

SPL 

26 

8<K) ■ (DX (K) *DX (K+l ) } /THR 

SPL 

27 

0(K)*DY<K*1)/DX(K*1)-0Y0U/0X(K> 

SPL 

28 

C (K) »DX (K^l ) /SIX 

SPL 

29 

SW«ONE/B(l> 

SPL 

30 

seu>»s*«c<n 

SPL 

31 

GU)«SW*0C1) 

SPL 

32 

DO  3 K»2*L 

SPL 

33 

SW«ONE/ (B(K)-A<K>*SB(K-1) ) 

SPL 

34 

SB(K)*SW*C(K) 

SPL 

35 

G(K)»SW*<0(Ki-A<tO*G(K-l>  > 

SPL 

36 

X*IL>*GfL> 

SPL 

37 

00  4 K*ltN 

SPL 

38 

J«L-K 

SPL 

39 

XM(J)»G(J>-SB<J>*XM(J*l> 

SPL 

40 

00  5 K»2tL 

SPL 

41 

OXR«ONE/'X(K) 

SPL 

42 

Q-OXR/SIX 

SPL 

43 

P«-XN<K-1)*Q 

SPL 

44 

Q«0*XM(K> 

SPL 

45 

r»DX IK) *XM (K-l) /SIX-0XR*Y (K-* ) 

SPL 

46 

S«Y (K) *DXR-DX (K) *XH(Ki /SIX 

SPL 

47 

XK*X 1 K > 

SPL 

48 

PX*XK*P 

SPL 

49 

PXX»PX*XK 

SPL 

50 

pxxx*rxx*xk 

SPL 

51 

XJ*X (K»X ) 

SPL 

52 

QX*X J*Q 

SPL 

53 

OXX«OX*XJ 

SPL 

54 

QXXX»OXX*XJ 

SPL 

55 

E <2tK) *P*0 

SPL 

56 

£(3*Kl*-TH«*tPX^0XI 

SPL 

57 

E (4fK) *THR* (PXX^OXX) ♦R^S 

SPL 

58 

E <5»K) »-PXXX-QXXX-R*XK-S*XJ 

SPL 

59 

CONTINUE 

SPL 

60 

DO  6 K*2»L 

SPL 

61 

EUtK)»X<K> 

SPL 

62 

CONTINUE 

SPL 

63 

E(1*1)*X(1) 

SPL 

64 
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C 


1 


c 


NE»L 

RETURN 

END 

FUNCTION  TORIC  (WIP.SE) 

TO  OBTAIN  THROAT  RADIUS  OF  CURVATURE  FROM  VELOCITY  QRA01ENT 
IMPLICIT  REAL *6 ( A-H.Q-Z) 

COMMON  /FG/  GC*60*GE.GF*GH,GI*MA*HB.HC*HE 

COMMON  /GG/  GAM,GM*G1 ,G^*G3.G4*G5,G6*G7,G8*G9*GAfRGA*0T 

DATA  QNE/1,0*0/*THR/3.0*Q/*FIV/5.D*0/ 

I£*ONE/QT-ONE 

FW*WIP*SE*0SQRT(GT*(GAM*0NE> ) 

TRR»FW*  10N£4 <GC* <THR*GC**2-GD > *FW**2> *FW**2> 

TR2*TRR**2 

TK*(0NE-G7*(0NE* (GE*GF*TR2> *TR2) *TR2**2/ (45.0*0*3*IE>  > **0T 
FF*FW/TK-TRR* (ONE-TR2* <GC-GQ*TR2> > 

FP30NE-TR2*  < THR-GC-F I v#G0*TR2> 

TRR*THR*FF/FP 

IF  (0A8S(FF) .GT.l.D-ll)  GO  TO  1 

T0RIC=QNE/TRR**2 

RETURN 

END 

SUBROUTINE  TRANS  (RTOtTKtWOt AMN* AMP.AHPP.W* AWP»AWPP*CW0PPP4 AXN) 
TO  DETERMINE  THROAT  CHARACTERISTIC 
IMPLICIT  REAL*8(A-H.0-Z) 

COMMON  /GG/  GAMtGMtGltG2fG3«64'G5«G6»G79Gd«G9'GAtRGAfQT 
COMMON  /CONTR/  ITLE (3) * IE  «LR 
COMMON  /TROAT/  FC(6«5l> 

DATA  ZRO/O. 00*0/ *0NE/ 1.0*0/. TWO/2. 0*0/ tSlX/6 .0*0/* HALF/5.0-1/ 
DATA  TRHV/1 .5D*0/»THR/3.0*0/4FOUR/4.0*0/4EIT/8.D*0/.TLV/1 .20*1/ 
NN«1 ABS (LR> 

JJ*240/(NN-1) 

IF  (M0D(JJ«2) .NE.O)  JJ«JJ*l 
IF  (UJ.LT • 10)  JJ*10 
KK*JU*NN-JJ 
GB-IE/EIT 

GK* (GAM* (GAH*?.250*0* IE- 16.50*0) *2.25D*0*  <2* IE) ) /TLV 
GU*ONE-GAM/TRHV 

GV*(HALF*<S-3*IE>*GAM*lE)/(9-IE> 

GZ»DSQRT (QT* <GAM*ONE) ) 

U22*GB*GAM/THR/(3-lE) 

U42»<GAM*(4-IE>*TRHV)/SlX/(3-IE) 

IF  UE.EQ.O)  GO  TO  l 

GT*(6AM*  <Gam*92,D*0*  1011* 0»0)  -9*040  > / 1 152  *0*0 
U23* (GAM*  <304. 0*0*GAM*255. 0*0) -54.0*0 > /\ 728.0*0 
U43»(GAM*  <388.0*0*GAH*777.0*0)  *153.0*0) /23Q4.0*0 
U63*(GAM* (556.D*0*GAM4 1737.0*0) *3069. D*0 ) /10368.0*0 
UPO*(GAM* (52.D*0*GAM*75»D*0) -9.0*0) /I 92 .0*0 
UP2»(GAM*(52.0*0*GAH*S1.D*0) *327. 0*0) /384. 0*0 
V02=(28.0*0*GAH-15.D*0>/288.0*0 
V22* (20 .0*0*GAH*27.0*0  ) /96.D*0 
V42» (GAM/THR4QNE) /THR 

V03*(GAM*(7100.D*0*GAH*2151. 0*0) *2169. 0*01/82944. 0*0 
V23* (GAM*  <3424 .D*0*GAM*40  T 1 .0*0) -972.0*0) /13824.0*0 
V43* (GAM* 0380. 0*0*GAM* 7551. 0*0) *3771.0*01/13824.0*0 
V63« (GAM* (6836.0* 0*G AM* 23031 .0*0) *30627.0*0) /82944«O*0 
GO  TO  2 
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SPL 

66 

SPL 

67 

TOR 

1 

TOR 

2 

TOR 

3 

TOR 

4 

TOR 

5 

TOR 

6 

TOR 

7 

TOR 

8 

TOR 

9 

TOR 

10 

TOR 
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TOR 
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17 
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1 

TRA 

2 

TRA 

3 

TRA 

4 

TRA 

5 

TRA 

6 

TRA 

7 

TRA 

8 

TRA 

9 

TRA 

10 

TRA 

n 

TRA 

12 

TRA 

13 

TRA 

14 

TRA 

15 

TRA 

16 

TRA 

17 

TRA 

18 

TRA 

19 

TRA 

20 

TRA 

21 

TRA 

22 

TRA 

23 

TRA 

24 

TRA 

25 

TRA 

26 

TRA 

27 

TRA 

28 

TRA 

29 

TRA 

30 

TRA 

31 

TRA 

32 

TRA 

33 

TRA 

34 

TRA 

35 
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GT* (GAM* (GAM*1 34.0*0*429.0*0) *123.0*0) /4320. 0*0 
U23* (GAM*  <854.D*0#GAM*8Q7.D*0) *279.0+0) /I 2960 *0*0 
U43=(GAM*<194.0*0*GAM*549.D*0>-63.0*0>/2592.0*0 
U63*(GAM*<362.D*0*GAM*1449.0*0> *3177.0*0) /12960. 0*0 
UP0* (GAM* (26.0*0#GAM*51 .D+0)-2?.D*0}/144.0*0 
UP2*  (GAM*  (26.0*0*GAM*27.0*0)  ♦237.0*0)  /288. 0*0 
V02*(34.D*0*GAM-75.0*0) /108Q.O*0 
V22*UO.O*0*GAM*15.D*0>/108.D*Q 
V42*(22.0*0*GAM*75. 0*0/360. 0*0 

VO 3* (GAM* ( 7570 .D*0*GAM*3087 .0*0) *23157 .0*0) /S44320. 0*0 
V23* (GAM* (5026. 0*0*GAM* 7551. 0*0 >-4923. 0*0 )/ 77760.0*0 
V43*(GAM* (2254. 0*0*GAM*61S3. 0*0) *2979.0*0)/25920«0*0 
V63*(GAM*(6574.0*0*GAM*26481 .0*0) *40059.0*0) /181440. 0*0 
WWO*WO* (HALF* (U42-U22+ (U63-U43*l)23)  /RTO)  /RTO)  /RTO 
WOP* (ONE- (GB-GT/RTO) /RTO> /OSORT (RTO) 

WOPP* (GU-GV/RTO) /RTO 
HOPPP*GK/RT0/DSQRT (RTO> 

HVPPP* (3*IE- ( 10-3*IE) *GAM> /FOUR/RTO/DSQRT (RTO) 

AMN*WWO/DSQRT (G7-G8*WW0**2) 

BET*DSQRT ( AMN**2-0NE  > 

PS 1 1*G2*DAT  AN ( BET /G2 ) -OAT  AN (BET ) 

P1*ZR0 

T1*ZR0 

X1*ZR0 

Y1*0NE 

TSY1*ZR0 

TN2*-QN£/BET 

FC(1.NN)*X1 

FC(2.NN)*Y1 

FC (3*NN) *AMN 

FC(4.NN)*PSI1 

FC(5*NN)*ZR0 

FC (6*NN>  *ZRO 

BX*ONE 

SUM*ZRO 

FSA* ( 1£*1 ) *AMN/ (G6*G5*AMN**2) **GA 

00  8 J* 1 ♦ KK 

Y*OFLOAT (KK-J)ZKK 

IF  (IE.EQ.1)  BX*Y*Y 

yy*y*y 

TN1*TN2 

V0*( ( (YY*(YY*(YY*V63-V43) *V23)-V03>/RTO*YY* (YY*V42-V22) *V02) / 
1 ALF* ( YY-ONE) / (3-IE) )/RTO 

VP*  CONE* ( (YY*(TW0*GAM*3*(4-IE> ) -TW0*GAM~TRHV*1E) / < 3-1E > /THR* { 
1IX*U63*YY-F0UR*U43) *TW0*U23>/RT0) /RTO) /OSORT (RTO) 

VPP*TWO* (ONE* (TWO*UP2*YY-UPO) /RTO) /RTO 

ITERATE  FOR  X AND  MACH  NUMBER  FROM  CHARACTERISTIC  EQUATIONS 

00  4 1*1*10 

TNA*HALF*(TN1*TN2) 

X«X1*(Y-Y1)/TNA 

OX I*OSQRT ( ( Y-Y 1) **2* ( X-X 1 ) **2 ) 

XOT*X/GZ 

VY*GZ* ( VO*XOT* ( VP*XOT* (HALF*VPP*XOT*HVPPP/THR> ) ) /OSQRT (RTO) 
W*AMN/DSORT (G6*G5*AMN**2) 

T*DARSIN(VY*Y/WJ 

FSY*IE*VY/W/AMN 


TRA 

36 

TRA 

37 

TRA 

38 

TRA 

39 

TRA 

40 

TRA 

41 

TRA 

42 

TRA 

43 

TRA 

44 

TRA 

45 

TRA 

46 

TRA 

47 

TRA 

48 

TRA 

49 

TRA 

50 

TRA 

51 

TRA 

52 

TRA 

53 

TRA 

54 

TRA 

55 

TRA 

56 

TRA 

57 

TRA 

58 

TRA 

59 

TRA 

60 

TRA 

61 

TRA 

62 

TRA 

63 

TRA 

64 

TRA 

65 

TRA 

66 

TRA 

67 

TRA 

68 

TRA 

69 

TRA 

70 

TRA 

71 

TRA 

72 

TRA 

73 

TRA 

74 

TRA 

75 

TRA 

76 

HTRA 

77 

TRA 

78 

STRA 

79 

TRA 

80 

TRA 

81 

TRA 

82 

TRA 

83 

TRA 

84 

TRA 

85 

TRA 

86 

TRA 

87 

TRA 

88 

TRA 

89 

TRA 

90 

TRA 

91 

AE  DC-T R-78-63 


3 


4 

C 

5 


O 

On 

8 


9 


puhalf*  (f$yi  ♦FSY>*OXI 

TRA 

92 

PSI=P1 *PS1 1 ♦Tl-T 

TRA 

93 

FMA=FMV<PSI) 

TRA 

94 

IF  (DABS (AMN-FHA) .LT.l.D-10)  GO  70  5 

TRA 

95 

FMU*DARS1N(0NE/FMA) 

TRA 

96 

TN2-0TAN ( T-FMU) 

TWA 

97 

amn*fma 

TRA 

98 

CONTINUE 

TRA 

99 

ITERATION  COMPLETE 

TRA 

100 

IF  (MOO(J*?) ,EO*0)  GO  TO  6 

TRA 

101 

ASsYl-Y 

TRA 

102 

FS8=HX/USIN(FMU-T) / <G6*G5*FMA**2) **GA 

TRA 

103 

GO  TO  7 

TRA 

104 

8S*Yl“Y 

TRA 

105 

CS=AS*8S 

TRA 

106 

S1*(TW0-HS/AS)*C$/$IX 

TRA 

107 

S3* (TWO-AS/BS) *CS/SIX 

TRA 

108 

S2=CS-S1 “S3 

TRA 

109 

F$C*RX/DSlN(FMU-n/  (G6*G5*FMA*«2>**GA 

TRA 

110 

A0n*Sl*FSA*S?*FSB*S3*FSC 

TRA 

111 

SUM*ADO*SUM 

TRA 

112 

FSAaFSC 

TRA 

113 

X1=X 

TRA 

114 

Y1=Y 

TRA 

115 

T 1*T 

TRA 

116 

FSYI*FSY 

TRA 

117 

PSI1*PS1 

TRA 

118 

IF  (MQD(J*jj) .NE.Q)  GO  TO  8 

TRA 

119 

K*NN-U/JJ 

TRA 

120 

FC(1*K)=X 

TRA 

121 

FC (2*K) *Y 

TRA 

122 

FC  (3*K)*FMA 

TRA 

123 

FC<4*K|»PSI 

TRA 

124 

FC  (S*K>  *T 

TRA 

125 

FC(6.K)*SUM 

TRA 

126 

CONTINUE 

TRA 

127 

DO  9 J*I*NN 

TRA 

128 

FC(1.J)=FC(1*J)/TK 

TRA 

129 

FC (2*J>*FC(2* J> /TK 

TRA 

130 

FC  <6* J>  *ONE-FC (6*  J> /SUM 

TRA 

131 

AXN*FC(i*l> 

TRA 

132 

AWOP*WOPMK/GZ 

TRA 

133 

AWOPP»WOPP* (TK/GZ) **2 

TRA 

134 

AWOPPP=TWO*HOPPP*(TK/GZ>**3 

TRA 

135 

CWOPPP*SIX*(W-WO-AXN*(AWOP*AXN*AWOPP/TWO> ) / AXN**3 

TRA 

136 

IF  (CWOPPP.LT. AWOPPP)  CWOPPP*AWOPPP 

TRA 

137 

AWP*AWOP*AXN* (AWOPP*AXN*CWOPPP/TWO> 

TRA 

138 

AWPP*AWOPP+AXN*CWOPPP 

TRA 

139 

AMP*AWP*G7* (AMN/W) *#3 

TRA 

140 

AMPP* AMP* ( A WPP/AWP*  THR*6S* AMP* W* W/AMN) 

TRA 

141 

IF  (tR.GT.O)  RETURN 

TRA 

142 

LR*NN 

TRA 

143 

RC*RTO-ONE 

TRA 

144 

WRITE  (6*10)  1TLE*RC* AWOP* AWOPP* AWOPPP 

TRA 

145 

00  10  J* 1 *NN 

TRA 

146 

Y*OFLOAT ( J-1J /(NN-1 ) 

TRA 

147 

AEDC-TR-78-63 
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YY*Y*Y 

TRA 

148 

Y4*YY**2 

TRA 

149 

Y6»YY**3 

TRA 

150 

0UY«(HALF«YY*(U42*Y4-U22*YY* <U63*Y6-U43*Y4*U23*YY) /RTO) /RTO) /RTO 

TRA 

151 

UY»WO*DUY 

TRA 

152 

VO«( ( (YY*(YY»(YY»V63-V*3) ♦VZ3)-V03)/RTO*YYO(YY«V»2-VZ2)»VOZ>/RTO*MTRA 

153 

lALF#<YY-0NE)/(3-IE> J/RTQ 

TRA 

154 

VY»GZ*VO*Y/DSQRT (RTO) 

TRA 

155 

WY*DSQRT  (UY*#2*VY##2) 

TRA 

156 

YM*WY/OSQRT <G7-G8*WY**2> 

TRA 

157 

WRITE  (6*13)  Y*UY*VY*WY,YM 

TRA 

158 

10 

IF  (MOO(J* 10) .EG*0)  WRIT  (6*1*) 

TRA 

159 

XX1*CU8IC(CWOPPP/5IX,AWOPP/TWO*AWOP*WO-ONE) 

TRA 

160 

XXl*CU8IC(AWOPPP/SIX,AWOPP/TWO* AWOP,WO-w) 

TRA 

161 

WRITE  (6,15)  XX1,XXI,W,CW0PPP,TK 

TRA 

162 

WRITE  (6*16) 

TRA 

163 

PX*AXNM*D-i 

TRA 

164 

DO  11  J*l,ll 

TRA 

165 

X«.1D*0*W-1) 

TRA 

166 

XW*WO*X# ( AWOP^X* (AWOPP/TWO*X*CWOPPP/SIX) ) 

TRA 

167 

XWP»AW0P*X* ( AWOPP*X*CWOPPP/TWO> 

TRA 

168 

XWPP*AWOPP*X«CWOPPP 

TRA 

169 

XM»XW/DSQRT (G7»G8*XW**2) 

TRA 

170 

XHP*XWP*G7* (XH/XW) **3 

TRA 

171 

XMPP*XMP* (XWPP/XWP^THR*GS*XHP*XW*XW/XH) 

TRA 

172 

IF  <X.LT*AXN.OR*X.GT*PX)  GO  TO  11 

TRA 

173 

WRITE  (6,18)  AXN*W*AWP*AWPP*AMN*AMP,AHPp 

TRA 

174 

11 

WRITE  (6,17)  X,XW*XWP,XWPP«XM, XMP*XHPP 

TRA 

175 

RETURN 

TRA 

176 

c 

TRA 

177 

12 

FORMAT  ( 1H1 ,8X*3A4,39H  THROAT  VELOCITY  DISTRIBUTION*  X*0,  RC**F10 

• TRA 

178 

16//10X,44HOERI VAT IVES  TAKEN  WITH  RESPECT  TO  </Y**  WOP*, FI 1 .8//10X 

*TRA 

179 

25HWOPP*»1PE1S.7.5X.6HKOPPP*«E1S.72/10X.*HY/Y0.7X»4HU/A*.10X.4HV/A*T«A 

180 

3* 11X* 1HW, 1 1X*8HMACH  NO.  /) 

TRA 

181 

13 

FORMAT  UH  ,F14*4*4F14*8  ) 

TRA 

182 

14 

FORMAT  (1H  } 

TRA 

183 

15 

FORMAT  (1HO,9X,18HFROM  CUBIC*  X/Y*  »*FU*8*11H  FOR 

W*  1.0  //32X.6HTPA 

184 

IX/Y*  *,F11.8,7H  FOR  W**F11.8  //10X, 16HC0RRECTED  WOPPP*, 1PE1S.7  // 

TRA 

185 

21QX, ISHRMASS  * Y*/YO  **0PF13.10  //) 

TRA 

186 

16 

FORMAT  ( 1 HO, 9X,32H AXIAL  VELOCITY  DISTRIBUTION,  Y*0 

//10X,4HX/Y#*9XTRA 

187 

1,1HW,17X,2HWP,16X*3HWPP, 1SX,1HM,17X*2HMP,16X*3HMPP 

/) 

TRA 

188 

17 

FORMAT  <1H  ,F13*3,1P6E18,7  ) 

TRA 

189 

10 

FORMAT  <1H  ,F16.8,1PE15,7,5E18.7  ) 

TRA 

190 

ENO 

TRA 

191 

SUBROUTINE  TWIXT  (S,GMA,GMB,GMC,GMD,X0L,KAT*KBL) 

TWI 

1 

C 

TO  DETERMINE  INTERPOLATION  COEFFICIENTS 

TWI 

2 

IMPLICIT  REAL*8  <A-M,0-Z> 

TWI 

3 

DIMENSION  S (200) 

TWI 

4 

DO  1 L*1,KAT 

TWI 

5 

IF  (S<KAT-U.LT*XBL)  GO  TO  2 

TWI 

6 

1 

CONTINUE 

TWI 

7 

2 

J*KAT-L*1 

TWI 

6 

XBB*S(J)-XBL 

TWl 

9 

K8L*JM 

TWI 

10 

OU*S(J*l)-$(J> 

TWI 

11 

OT*S(J)-S(vP-l) 

TWI 

12 
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0$*S(J-l)-$(J-2) 

TWI 

13 

DST*OS*QT 

TWI 

14 

DSTU=*OST*DU 

TWI 

15 

DTU*OT*OU 

TWI 

16 

6MA*-XBa*<0T-X8B)* (0U*XB6) /OS/OST/OSTU 

TWI 

17 

GM0*X8B* (OST-XBB)  * (DIWB0)  /DS/DT/DTU 

TWI 

18 

GMC3 (OST-X0R) • (DT-X0B) * (0U*XB8> /OST/OT/OU 

Ttf>I 

19 

GMD»-XBB* (DST-XBB) * (DT-XB0) /DSTU/DTU/DU 

7WI 

20 

RETURN 

TWI 

21 

ENO 

TwI 

22 

SUBROUTINE  XYZ  (XX* YYtYYP* YYPP) 

XYZ 

1 

COMPUTE  Y*y**Y"  FOR  A CURVE  DESCRI0EO  BY  CU8IC*S  A(5**> 

XYZ 

2 

WHERE  (1)  « X— MAX  <2>»  HIGH  ORDER  COEFFICIENT. 

XYZ 

3 

IMPLICIT  REAL*fl(A-H,0-2) 

XYZ 

4 

COMMON  /COEF/  A(5*200)*NA 

XYZ 

5 

OATA  ZERO/O. 00*0/ 

XYZ 

6 

X*XX 

XYZ 

7 

IF  (X.GE.AU.D)  Go  TO  2 

XYZ 

8 

Y*ZE«0 

XYZ 

9 

YP*ZERO 

XYZ 

10 

YPP*2ERO 

XYZ 

11 

GO  TO  5 

XYZ 

12 

DO  3 K*2*20Q 

XYZ 

13 

IF  (X.LE.A(l.K) ) GO  TO  4 

XYZ 

14 

CONTINUE 

XYZ 

15 

GO  TO  1 

XYZ 

16 

A3«A(2*K) 

XYZ 

17 

A2*A  <3*K) 

XYZ 

IS 

Al»A(4tK) 

XYZ 

19 

AZ«A<5*K1 

XYZ 

20 

T«A2^A 2 

XYZ 

21 

S»A3*3.QO*0 

XYZ 

22 

R«S*S 

XYZ 

23 

Y*AZ*X*(AI*X* (A2*X*A3) ) 

XYZ 

24 

YP*A1 *X# ( T*X*S) 

XYZ 

25 

YPP«T*R*X 

XYZ 

26 

YY*Y 

XYZ 

27 

YYP*YP 

XYZ 

28 

yypp*ypp 

XYZ 

29 

RETURN 

XYZ 

30 

END 

XYZ 

31 

SEV00469 (09-01-1977)  VKF07600  TUESOAY  JUN  06*1978  11 *35.34 

1 
2 

3 

4 

5 

6 
7 

• ' • * * I \ ..  J .. I *««.«««•«  I 

1 10  20  30  40  50  60  70  80 

OF  INPUT  DATA  ••»*•*<«•••»•••«»*«••*«**#*••«««••*•*«•••< 


1 M A C H 4 


2 

1.4 

1716,563 

1. 

0.896  2. 

26968E-8  198*72 

1000* 

3 

a.  6/ 

6* 

3. 

4.  -12.25 

60, 

4 

41 

21 

10 

41  49  -61 

1 

10 

-21 

13 

5 

50 

85 

50 

6 

200. 

1638. 

900. 

540. 

.38 

1 

5 

1 

I0o0. 

46. 

172. 

2. 
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M A C H A THROAT  VELOCITY  DISTRIBUTION,  X«0.  RC*  6,000000 
DERIVATIVES  TAKEN  WITH  RESPECT  TO  X/Y»,  W0P«  0,34136116 


W0PP3 

2.8328A36D-03 

W0PPP*  -" 

r. 68816860-02 

Y/YO 

U/A* 

V/A* 

W 

MACH  NO. 

0*0 

0.9638S164 

0.0 

0.96385164 

0.95708127 

0*0500 

0 ,96401577 

-0.00071638 

0.96401603 

0.95727442 

0*1000 

0.96*50872 

-0.00142453 

0.96450977 

0.95785464 

0*1500 

0,96533218 

-0*00211614 

0.96533450 

0.95862420 

0.2000 

0,96648905 

-0.00278269 

0.96649305 

0.96018698 

0.2500 

0,96798341 

-0*00341543 

0,96798943 

0.9619484? 

0*3000 

0.9698206S 

-0*00400516 

0.96982892 

0.96411593 

0*3500 

0.97200756 

-0*00454220 

0.97201817 

0.96669850 

0,4000 

0.97*55242 

-0.00501616 

0.97456533 

0.96970739 

0,4500 

0.977*6515 

-0.00541581 

0.97748016 

0.97315605 

0.5000 

0.98075749 

-0.00572885 

0.98077422 

0.97706044 

0.5500 

0.98444311 

-0*00594164 

0.98446104 

0.98143928 

0*6000 

0.98853789 

-0.00603898 

0.98855634 

0.98631439 

0.6500 

0.99306008 

-0.00600372 

0.99307023 

0.99171105 

0.7000 

0. 99803057 

-0.00581642 

0.99804752 

0.99765839 

0.7500 

1.00347313 

-0.005*5488 

1.00348795 

1.00418993 

o.eooo 

1.00941470 

-0.00489374 

1.00942666 

1.01134407 

0.6500 

1.01588572 

-0.00410381 

1,01589400 

1.01916472 

0.9000 

1.02292039 

-0.00305157 

1.02292494 

1.02770206 

0,9500 

1.03055708 

-0.00169844 

1.03055848 

1.03701332 

1.0000 

1.03883866 

-0.00000000 

1.03883866 

1.04716380 

FROM  CUBIC*  X/Y#  * 0. 

10589172  FOR 

W*  1.0 

X/Y*  * 0* 

30916451  FOR 

V-  1.06914514 

CORRECTED  WOPPP*  -7.5023201D-02 

RMASS 

« Y*/YO  » 0.9997135747 

AXIAL 

VELOCITY  DISTRIBUTION,  Y»0 

X/Y* 

w 

WP 

WPP 

0.0 

9.63851640-01 

3. 41361180-01 

2.83284360-03 

9,57081270-01 

4,01061750-01 

8.13946640-02 

0.100 

9.97989420-01 

3.4126935D-01 

-4.66947650-03 

9.97588760-01 

4.09030180-01 

7.79215580-02 

0.200 

1.03208050 

00 

3.40427280-01 

-1.21717970-02 

1 , 0388752D 

00 

4,16634260-01 

7.40939840-02 

0.300 

I .0660*990 

00 

3,38834990-01 

-1.96741170-02 

1.08090220 

00 

4.23034270-01 

6.98250120-02 

0.30913748 

1.0691*510 

00 

3.38652080-01 

-2.03596400-02 

1.08*77780 

00 

4.24470410-01 

6.94096560-02 

0.400 

1 *09982250 

00 

3.36492460-01 

-2.71764370-02 

1.12362690 

00 

4.30581350-01 

6.50183630-02 

0.500 

1.133323*0 

00 

3.33399700-01 

-3.46787570-02 

1.167001*0 

00 

4. 36816500-01 

5.95679340-02 

0.600 

1.166*77*0 

00 

3.29556710-01 

-4.21810770-02 

1.21097080 

00 

4.42469620-01 

5.33575010-02 

0.700 

1.19920970 

00 

3.24963490-01 

-4.96833970-02 

1.255*7320 

00 

4.47458460-01 

4.6260683D-02 

0.800 

1.231**510 

00 

3.19620030-01 

-5.71857170-02 

1.300*3720 

00 

4.51687680-01 

3.81412630-02 

0.900 

1,26310870 

00 

3.13526340-01 

-6,46880380-02 

1.3*578170 

00 

4.55047800-01 

2.88540130-02 

1,000 

1.29*126*0 

00 

3.06682420-01 

-7.21903580-02 

1.391*1370 

00 

4.57414460-01 

1.82461770-02 
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M A C H 4 THROAT  CONTOUR*  3MD-DEG  AXIAL  VELOCITY  DISTRIBUTION  FROM  THROAT  CHARACTERISTIC  WHICH  HAS  21  POINTS 

no,  OF  POINTS  ON  1ST  CHAM • (M>r  4l  NO.  OF  POINTS  ON  AXIS  <N)»  21  EPSI/£TA«  1,91806  8MACH*  3.08215  CMACH*  4.00000 
GAMMAS  1.4000  INFLECTION  ANG.  (£TA>=  8.6700  DEGREES  RAD.  OF  CUMV.  <RC)»  6.000000  SCALE  FACTOR  <SF1*  24.75038624 
Y**0 ♦ 151 1 757?  RMASSsO. 99971357  WWO  = 1.0388387  WWOP=  2.S9666S57  FMACH*  1.66015  FMACH»  3.0821543  GMACH*  2.28784 


wl= 

1.06914514 

WIP= 

2.24012223 

WIPP* 

-8.90852940-01 

MI*  1.08477784 

MTP* 

2.80779489  HIPP*  3.03707710  00 

wl  = 

1.06914514 

W IP- 

2.24012223 

WIPP= 

-8. 90852940-01 

Wjpppa  -3.00096030 

01 

WOPPP*  -2.1714482D  01 

wE= 

1.4601650s 

WEP* 

1,45785766 

wEPP* 

-6.90974160  00 

WEPPP*  -3.000960 3D 

01 

WRPPP*  7.08852360  01 

Cl  = 

1.06914S1 

C2-  0. 

44929096  C3* 

-1.79179340-02  C4* 

-4.03530990-02  C5* 

0.0 

C6»  0,0 

XOI=  0.04673408  Xl*  0. 94011 759  XO*  0.89338351  YU*  0.15121903  XIE*  0.20056538  X£*  1.14068296  44  ITERATIONS 


MACH  0,95708127  AT  46.07585S5  IN.,  MACH  1 AT  46,4720875  IN. ♦ MACH  1.08477784  AT  47.2325420  IN. 

AXIS 


POINT 

X 

X T IN) 

MACH  NO. 

OM/0X 

02M/OX2 

D3M/OX3 

W*0/A* 

0W/OX 

02W/0X2 

P3W/0X3 

1 

1.14068 

52.19661 

1.660154 

2.57U980 

00 

-7,9414020 

00  -9.7369330 

01 

1 .460165 

1.4578580 

00 

-6.9097400 

00  -3.0009600 

01 

2 

1.12775 

51.87640 

1.626258 

2.6659540 

00 

-6.7191180 

00  -9.1512930 

01 

1.440736 

1.5447430 

00 

-6.5214820 

00  -3.0009600 

01 

3 

1.11501 

51,56120 

1.591 793 

2.7442630 

00 

-5.5920330 

00  -8.5459530 

01 

1.420545 

1.6253610 

00 

-6.1393000 

00  -3.0009600 

01 

4 

1.10249 

61.25121 

1.557012 

2.8077560 

00 

-4.5596600 

00  -7.9390400 

01 

1.399717 

1.6998990 

00 

-5.7634540 

00  -3,0009600 

01 

5 

1.09018 

50.94665 

1.522140 

2.8580040 

00 

-3.6193890 

00  -7.3445950 

01 

1.378372 

1.7685480 

00 

-5.3941770 

00  -3,0009600 

01 

6 

1.07810 

50.64775 

1.487383 

2.8964980 

00 

-2.7670860 

00  -6,7730520 

01 

1,356629 

1.8315030 

00 

-5.0317640 

00  -3.0009600 

01 

7 

1,06627 

S0,J547d 

1.452920 

2.924635D 

00 

-1.9976920 

00  -6.2317620 

01 

1.334605 

1 .8889630 

00 

-4.6765310 

00  -3.0009600 

01 

8 

1.05468 

50.06801 

1.418917 

2.9437120 

00 

-1.3051430 

00  -5.7255390 

01 

1.312413 

1.9411310 

00 

-4.3288350 

00  -3,0009600 

01 

9 

1,04336 

49. 7«780 

1.385519 

2.9549200 

00 

-6.8369160-01  -5.2571540 

01 

1.290166 

1 .9882180 

00 

-3.9890770 

00  -3.0009600 

01 

10 

1.03232 

49.51451 

1.352861 

2.9593530 

00 

-1.2716810- 

-01  -4,8277930 

01 

1.267976 

2.030435D 

00 

-3.6577160 

00  -3.0009600 

01 

n 

1.02157 

49.2*858 

1.321067 

2.9580090 

00 

3.7033290-01  -4,4374450 

01 

1.245956 

2.0680030 

00 

-3.335281D 

00  -3,0009600 

01 

12 

1.01115 

48.99052 

1.290254 

2.95180  ID 

00 

8.1440910-01  -4.0852340 

01 

I .224218 

2.10U470 

00 

-3.0223880 

00  -3.0009600 

01 

13 

1,00106 

*« . 74094 

1.260536 

2.9415660 

00 

1.2102470 

00  -3.7696860 

01 

1.202882 

2.1300990 

00 

-2.7197710 

00  -3.0009600 

01 

14 

0,99135 

48.60056 

1.232030 

2.9280790 

00 

1.5625460 

00  -3.4889580 

01 

1.182070 

2.1550980 

00 

-2.4283160 

00  -3.0009600 

01 

15 

0.98205 

48.2/030 

1.204861 

2.9120690 

00 

1,8754490 

00  -3.2410180 

01 

1.161919 

2.1763910 

00 

-2.1491230 

00  -3,0009600 

01 

16 

0.97320 

48,05131 

1.179173 

2,8942350 

00 

2.1524/20 

00  -3.0238110 

01 

1.142582 

2.1942310 

00 

-1,8835990 

00  -3.0009600 

01 

17 

0.96487 

47.84614 

1.155U2 

2,8752780 

00 

2.3963970 

00  -2.8354150 

ol 

1.124242 

2. 2088800 

00 

-1.6336240 

00  -3,0009600 

01 

18 

0.95715 

47.65400 

1.133010 

2,8559430 

00 

2.6090620 

00  -2.6742500 

01 

1.10713 7 

2.2206010 

00 

-1.401S69D 

00  -3.0009600 

01 

19 

0,95017 

47,481 33 

1,113151 

2,8371010 

00 

2,7908670 

00  -2,5394600 

01 

1.091613 

2.2296510 

00 

-1.1925120 

00  -3,0009600 

01 

20 

0.94420 

47.33358 

1.096265 

2.819995D 

00 

2.9392210 

00  -2.4319980 

01 

1.078282 

2.2362350 

00 

-1.0133650 

00  -3.0009600 

01 

21 

0.94012 

47.23254 

1.084778 

2.8077950 

00 

3.0370770 

00  -2,3625730 

01 

1.069145 

2.2401220 

00 

-8,9085290-01  -3.0009600 

01 

AE  DC-TR-78-63 


M A C H 4 THROAT  CHARACTERISTIC 


POINT 

X 

Y 

MACH  NO. 

MACH  ANG. 1 

tO) 

PSI  <D> 

FLOW  ANG. (0) 

X ( IN) 

Y ( IN) 

1 

9,40117590-01 

0.0 

1.08477780 

00 

6.7197722D 

01 

1.05290740  00 

0.0 

47.2325420 

0.0 

2 

9,37018400-01 

7.56095150-03 

1.07632920 

00 

6.8292446D 

01 

9.04249970-01 

7.23832840-02 

47.1558360 

0.1871365 

3 

9,34072480-01 

1.51219030-02 

1 .06880590 

00 

6.93291 22D 

01 

7,77562380-01 

1.30305260-01 

47.0829233 

0.3742729 

A 

9,31270550-01 

2.2682855D-0? 

1.06216310 

00 

7.0300762D 

01 

6.70511860-01 

1 « 755131 80—01 

47.0135744 

0.5614094 

5 

9.28602420-01 

3.02438060-02 

1.05635750 

00 

7.11999850 

01 

5.80930090-01 

2,09619000-01 

46.9475371 

0.7485459 

6 

9.26056950-01 

3.78047580-02 

1.05134760 

00 

7.20192280 

01 

5.06816410-01 

2.34097490-01 

46.8845358 

0.9356823 

7 

9.23622060-01 

4.5365709D-02 

1.04709260 

00 

7,27510430 

01 

4.4634349D-01 

2.50282270-01 

46.8242714, 

1.1228188 

a 

9.21284790-01 

5.29266610-02 

1.04355250 

00 

7.33884850 

01 

3. 97864230-01 

2.59360470-01 

46.7664229^ 

1.3099553 

9 

9.19031360-01 

6.04876120-02 

1.04O68B0D 

00 

7.39255700 

01 

3.59918720-01 

2,62367440-01 

46.7106498 

1,4970918 

10 

9.16847400-01 

6.8048564D-02 

1.03846040 

00 

7.43577440 

01 

3.31239770-01 

2.60182550-01 

46.6565958 

1.6842282 

n 

9.U71809D-Q1 

7.56095150-02 

1.03683250 

00 

7.4682308D 

01 

3.10755610-01 

2. 53527570-01 

46.6038946 

1.8713647 

12 

9.12620470-01 

8.31704670-02 

1 .0357685D 

00 

7.48987020 

01 

2.97588700-01 

2,42968490-01 

46.5521759 

2.0585012 

13 

9.10563740-01 

9,07314180-02 

1.03523460 

00 

7. 50085900 

01 

2.910501 ID-01 

2.28921160-01 

46.5010728 

2.2456376 

U 

9,08509460-01 

9.82923700-02 

1 .0352002D 

00 

7.50157120 

01 

2.90629720-01 

2.11660430-01 

46,4502286 

2.4327741 

IS 

9.06451880-01 

1.05853320-01 

1 .0356377D 

00 

7.49255310 

01 

2.95983200-01 

1.91332120-01 

46.3993029 

2.6199106 

16 

9.04378110-01 

1.13414270-01 

1.03652380 

00 

7*47447360 

01 

3.0691 7180-01 

1 .67966080-01 

46.3479762 

2.8070470 

17 

9.02276200-01 

1.20975220-01 

1.03783920 

00 

7.44007090 

01 

3.23374200-01 

1.41409330-01 

46.2959531 

2.9941835 

18 

9.00135220-01 

1.28536180-01 

1.03956890 

00 

7.41410150 

01 

3 ,454 10890-01 

1.11737670-01 

46.2429631 

3.1813200 

19 

8.97945280-01 

1. 36097130-01 

1 .0417028D 

00 

7.37329910 

01 

3.73226460-01 

7.04650450-02 

46.1887611 

3.1604565 

20 

8.95697400-01 

X. 43658080-01 

1.04423480 

00 

7.32634520 

01 

4.07074080-01 

4.13501380-02 

46.1331253 

3.5555929 

21 

8.93383510-01 

1.51219030-01 

1.04716380 

00 

7.27385060 

01 

4.47335460-01 

0,0 

46.0758555 

3.7427294 
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mach*  upstream  contour 

CHARACT  1 


POINT 

X 

Y 

MACH  NO. 

MACH  AN6.  I 

[0) 

PSI  CDI 

FLOW  ANG, < 

ID) 

X<IN> 

Y(IN) 

1 

' 1.1*068300 

00 

0.0 

1.66015380 

00 

3.70386650 

01 

1.66373790 

01 

0.0 

52.1966126 

0.0 

2 

1 .146**7*0 

00 

4.33703270-03 

1.67486670 

00 

3.66597900 

01 

1.70708790 

01 

E.16T50000-01 

52.3392858 

0,1073432 

3 

1.18230*60 

00 

8. 71850550-03 

1.68960100 

00 

3.62888070 

01 

1,75043790 

01 

*.33500000-01 

52.4842521 

0.2157864 

4 

1.1S82S52U 

00 

1.31456070-02 

1 .70435940 

00 

3.59253520 

01 

1.7937879D 

01 

6.50250000-01 

52.6315327 

0.3253588 

5 

1.16*30030 

00 

1.76195420-02 

1.71914460 

00 

3.5569U70 

01 

1.83713790 

01 

8.6700000D-01 

52.7811500 

0.4360905 

6 

1.170**070 

00 

2.21415330-02 

1.73395940 

00 

3.52198070 

01 

1.88048790 

01 

1.08375000 

00 

52.9331274 

0.5480115 

7 

1.176677*0 

00 

2.67128200-02 

1.74880620 

00 

3.48771420 

01 

1.92383790 

01 

1,30050000 

00 

53.0874894 

0.661 1526 

8 

1.18301160 

00 

3.13346630-02 

1.76368760 

00 

3*45400620 

01 

1.96718790 

01 

1.51725000 

00 

53.2442616 

0.7755450 

9 

1.189***10 

00 

3.60083430-02 

1.77060580 

00 

3.42107210 

01 

2.01053790 

01 

1.73400000 

00 

53.4034705 

0.8912204 

10 

1.19597630 

00 

4.O735150D-O2 

1.79356330 

00 

3.38864060 

01 

2.05388790 

01 

1.95075000 

00 

53.5651437 

1.0082109 

11 

1.20260920 

00 

4.55164340-02 

1.8085623D 

00 

3.35679400 

01 

2.09723790 

01 

2.16750000 

00 

53.7293100 

1.1265493 

12 

1.2093**00 

00 

5.03535140-02 

1 .82360500 

00 

3.32548750 

01 

2.14058790 

01 

2.38425000 

00 

53,8959990 

1.2462689 

13 

1.21618190 

00 

5.52477690-02 

1.83869360 

00 

3.29470950 

01 

2.18393790 

01 

2.60100000 

00 

54.0652414 

1.3674036 

14 

1.22312**0 

00 

6.0200592D-02 

1.85383020 

00 

3.26444180 

01 

2.22728790 

01 

2.8177500D 

00 

54.2370690 

1 .4899879 

15 

1.23017260 

00 

6.52134040-02 

1 .86901700 

00 

3.23466650 

01 

2.27063790 

01 

3.03450000 

00 

54.4115145 

1.6140569 

16 

1.23732790 

00 

7.02876510-02 

1.88425600 

00 

3.20536730 

01 

2.31398790 

01 

3.25125000 

00 

54.5806119 

1 .7396465 

17 

1.2**59180 

00 

7.5424807D-02 

1 .89954920 

00 

3.17652810 

01 

2.35733790 

01 

3.46000000 

00 

54,7683961 

1.8667931 

18 

1.25196570 

00 

8.06263750-02 

1.91489860 

00 

3.14013410 

01 

2.40068790 

01 

3.6847500D 

00 

54.9SQ9029 

1.9955339 

19 

1.259*5110 

00 

8.58938870-02 

1.93030620 

00 

3.12017100 

01 

2,4440  3790 

01 

3.90150000 

00 

55.1361696 

2.1259069 

20 

1.2670*950 

00 

9.12289070-02 

1 .94577390 

00 

3.0926250D 

01 

2.48738790 

01 

4.11025000 

00 

55.3242341 

2.2 579507 

21 

1.27*7626D 

00 

9.66330300-02 

1.96130370 

00 

3.0654834D 

01 

2.53073790 

01 

4.33500000 

00 

55.5151358 

2.3917048 

22 

1.28259200 

00 

1.02107880-01 

1.97689750 

00 

3.03873360 

01 

2,57408790 

01 

4.55175000 

00 

55.7009151 

2,5272095 

23 

1.29053920 

00 

1.07655130-01 

1 .99255730 

00 

3.01236390 

01 

2.61743790 

01 

4.76850000 

00 

55.9056134 

2.6645060 

24 

1.29860620 

00 

1.13276460-01 

2.00828400 

00 

2.98636300 

01 

2.66078790 

01 

4.98525000 

00 

56.1052734 

2.8036361 

25 

1.30679*60 

00 

1.18973620-01 

2.02408200 

00 

2.96072000 

01 

2.70413790 

01 

5,20200000 

00 

56.3079389 

2.9446429 

26 

1.31510620 

00 

1.24748360-01 

2.03995080 

00 

2.93542400 

01 

2.74748790 

01 

5.41875000 

00 

56.5136549 

3.0875702 

27 

1.3235*290 

00 

1.30602510-01 

2.05589300 

00 

2.91046730 

01 

2.79083790 

01 

5.63550000 

00 

56.7224677 

3.2324626 

28 

1.33210670 

00 

1.36537910-01 

2.07191040 

00 

2.88583820 

01 

2,83418790 

01 

5.85225000 

00 

56.9344247 

3.3793660 

29 

1.3*079950 

00 

1.42556450-01 

2.08800510 

00 

2.86152830 

01 

2.87753790 

01 

6.06900000 

00 

57.1495747 

3.5283271 

30 

1.3*962330 

00 

1. 48660060-01 

2.10417.000 

00 

2.83752890 

01 

2.92088790 

01 

6.28575000 

00 

57.3679677 

3.6793939 

31 

1.35858030 

00 

1.54850720-01 

2.12043340 

00 

2.8138317D 

01 

2.96423790 

01 

6.50250000 

00 

57.5896549 

3.8326151 

32 

1.367672*0 

00 

1.6U30450-01 

2.1367708D 

00 

2.79042860 

01 

3.00758790 

01 

6.71925000 

00 

57.8146890 

3.9880408 

33 

1.37690200 

00 

1.67501320-01 

2.15319280 

00 

2.7673119D 

01 

3.05093790 

01 

6.9360000D 

00 

58.043124? 

4,1457223 

34 

1.38627120 

00 

1.73965440-01 

2.16970130 

00 

2.74447420 

01 

3.09428790 

01 

7.15275000 

oo 

58.2750157 

4.3057118 

35 

1.39578230 

00 

U8052498D-01 

2.18629030 

00 

2.72190930 

01 

3.13763790 

01 

7.36950000 

00 

58.5104205 

4.4680630 

36 

1. *05*3780 

00 

1. 87182160-01 

2.20298550 

00 

2.6996074D 

01 

3.18098790 

01 

7.58625000 

00 

58.7493969 

4.6328309 

37 

1. *152*000 

00 

1.93939250-01 

2*21 97650D 

00 

2.67756480 

01 

3.22433790 

01 

7.80300000 

00 

58.9920046 

4,8000714 

38 

1.425191*0 

00 

2.00798580-01 

2.2366387D 

00 

2.65577420 

01 

3*26768790 

01 

8.01975000 

00 

59.2383050 

4.9698423 

39 

1.43529*50 

00 

2. 07762510-01 

2.2536O03D 

00 

2.63422940 

01 

3, 31103790 

01 

8.2365000D 

00 

59.4883611 

5.1422024 

40 

1.4*555190 

00 

2.14833500-01 

2.27067600 

00 

2.61292440 

01 

3.35438790 

01 

8.45325000 

00 

59.7422374 

5.3172121 

41 

1.455966*0 

00 

2.22014040-01 

2.28784370 

00 

2.59185360 

01 

3.39773790 

01 

8,67000000 

00 

60.0000000 

5.4949332 

MASS  « 1.000000038J 
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m a c h 4 intermediate  left  characteristic 


CHARACT  H 


POINT 

X 

Y 

MACH  NO. 

MACH  ANG. 1 

(0) 

PS1  (0) 

FLOW  ANG. I 

(0) 

X I IN) 

Y { IN) 

1 

1*02157240 

00 

0.0 

1.32106730 

00 

4,91972530 

01 

6.75094380 

00 

0.0 

49.2485811 

0.0 

2 

1 • 026851 ID 

00 

6.05542980-03 

1. 33687760 

00 

4.84184340 

01 

7,19182130 

00 

2.22664950-01 

49.3792293 

0.1498742 

3 

1*03209250 

00 

1.19543960-02 

1.352944 ID 

00 

4.76572580 

01 

7.64383540 

00 

4.55128270-01 

49.5089554 

0.2958759 

4 

1*03729000 

00 

1.76992200-02 

1.36920590 

00 

4.69157710 

01 

8.10501140 

00 

6,96049490-01 

49.6375964 

0.4380625 

s 

1.04243890 

00 

2 .32 940 2 3D- 02 

1.38560290 

00 

4. 61 956340 

01 

8,57335050 

00 

9.44010040-01 

49.7650329 

0.5765361 

ft 

1.04753590 

00 

2.87443510-02 

] .40207560 

00 

4.54981900 

01 

9.Q468319D 

00 

1.19751120 

00 

49.8911859 

0.7114338 

7 

1.05257940 

00 

3.40569760-02 

1.41856440 

00 

4.48245400 

01 

9.52341000 

00 

1.45497110 

00 

50.0160153 

0.8429233 

ft 

1.05756950 

00 

3.92397980-02 

1.4350095D 

00 

4.41755790 

01 

1 .0001020D 

01 

1 .71472770 

00 

50.1395211 

0.9712002 

9 

1 .062507  fO 

00 

4.43018400-02 

1.45135100 

00 

4.35520440 

01 

1.047T581D 

01 

1.97503820 

00 

50.2617444 

1.0964877 

10 

1 • Oft  7 39760 

00 

4.92532930-02 

1.46752840 

00 

4.29545370 

01 

1.09510030 

01 

2.23408170 

00 

50.3827712 

1.2190380 

11 

1.07224460 

00 

5.41056060-02 

1.48348050 

00 

4.23835570 

01 

1.14191910 

01 

2.48995760 

00 

50.5027359 

1.3391346 

12 

1 .07651890 

00 

5.83417510-02 

1.49741200 

00 

4.18989470 

01 

1.18289980 

01 

2.71304310 

00 

50.6085268 

1.4439809 

13 

1.08087220 

00 

6.26177810-02 

1.51143230 

00 

4.14238530 

01 

1.22421330 

01 

2.93682560 

00 

50.7162740 

1.5498143 

14 

1.08530570 

00 

6.69351900-02 

1.5255217D 

00 

4.0958596D 

01 

1.26578880 

01 

3,16087680 

00 

50.8260034 

1.6566718 

15 

1,08981990 

00 

7.12951860-02 

1.53966760 

00 

4,05032250 

01 

1.3075769D 

01 

3.38496050 

00 

50.9377333 

1,7645834 

16 

1.09441570 

00 

7.S6988660-02 

1.55386170 

00 

4.0057640D 

01 

1.34954080 

01 

3,60893970 

00 

51.0514789 

1.8735762 

17 

1*09909340 

00 

8. 01472820-02 

1 .56809840 

00 

3.9621650D 

01 

1.3916522D 

01 

3.83273490 

00 

Si. 1672544 

1.9836762 

la 

1.103853?0 

00 

8.46414740-02 

1.58237410 

00 

3.91950110 

01 

1.4338888D 

01 

4,05630070 

00 

51.2850733 

2. 0949092 

19 

1,10869710 

00 

Q. 91824840-02 

1 ,59668640 

00 

3.07774520 

01 

1.47623300 

01 

4.27961370 

00 

51.4049497 

2. 2073009 

20 

1.11362420 

00 

9.37713650-02 

1.61103400 

00 

3.83686860 

01 

1.51867020 

01 

4.50266360 

00 

51.5268977 

2, 3208775 

21 

1*11863560 

00 

9.84091880-02 

1.62541630 

00 

3.79684170 

01 

1.56118860 

01 

4,72544900 

00 

51.6509323 

2.4356654 

22 

1.12373200 

00 

1. 03097040-01 

1.63963320 

00 

3.75763530 

01 

1.60377820 

01 

4.94797370 

00 

51.7770691 

2.5516916 

23 

1*12891390 

00 

I. 07836040-01 

1.65428500 

00 

3.71922050 

01 

1.64643070 

01 

5.17024500 

00 

51.9053245 

2.6689836 

24 

1.13418220 

00 

1.12627310-01 

1.66877250 

00 

3.68156910 

01 

1,68913910 

01 

5.39227220 

00 

52.0357158 

2.7075693 

25 

1.13953750 

00 

1.17472010-01 

1.6832964D 

00 

3.64465370 

01 

1.73189740 

01 

5,61406560 

00 

52.1682609 

2.9074775 

26 

1*14498050 

00 

1*22371320-01 

1.69785790 

00 

3.60844790 

01 

1.7747003D 

01 

5.83563610 

00 

52.3029789 

3.0287375 

27 

1.15051 220 

00 

1.27326450-01 

1.71245810 

00 

3.5  7292630 

01 

1,81754340 

01 

6,05699480 

00 

52.4398896 

3.1513789 

2« 

1.15613330 

00 

1.32338640-01 

1.72709840 

00 

3.53806470 

01 

1 .860422BD 

01 

6.27B1524D 

00 

52.5790137 

3.2754324 

29 

1.16184470 

00 

1.37409130-01 

1.74178010 

00 

3.50383900 

01 

1 .9033351 D 

01 

6.49911950 

00 

52.7203729 

3.4009291 

30 

1 .16764730 

00 

1.42539220-01 

1.75650490 

00 

3.47022910 

01 

1.9462774Q 

01 

6,71990630 

00 

52.8639897 

3.5279008 

31 

1.17354200 

00 

1.47730220-01 

1.77127410 

00 

3.43721150 

01 

1.98924690 

01 

6.94052240 

00 

53.0098876 

3.6563799- 

32 

1.17953000 

00 

1.52983460-01 

1.78608930 

00 

3.40476660 

01 

2.03224140 

01 

7.16097710 

00 

53.1580910 

3.7863997: 

33 

1,18561210 

00 

1.58300310-01 

1.80095220 

00 

3.37287500 

01 

2.07525880 

01 

7.38127900 

00 

53.3086250 

3.9l79939,\ 

34 

1.19178940 

00 

1 .63682180*01 

1.8158643D 

00 

3.36151820 

01 

2.11829720 

01 

7.60143630 

00 

53*4615161 

4*0511971 

35 

1.19806300 

00 

1.69130480-01 

1.83082740 

00 

3.31067840 

01 

2.16135490 

01 

7.82145680 

00 

53.6167912 

4.1860447 

36 

1.2044341 0 

00 

1.74646680-01 

1.8458429D 

00 

3.28033880 

01 

2.2044305D 

01 

8.04134760 

00 

53.7744785 

4.3225728 

37 

1*21090390 

00 

1.80232270-01 

1.86091270 

00 

3. 25048310 

01 

2.24752270 

01 

8.26111560 

00 

53.9346070 

4.4608182 

38 

1.21747340 

00 

1.85888750-01 

1 .87603830 

00 

3.22109610 

01 

2.29063010 

01 

8.48076710 

00 

54.0972066 

4.6008185 

39 

1 .22414410 

00 

1 .91617700-01 

1.89122150 

00 

3.19216290 

01 

2.33375180 

01 

8.70030820 

00 

54,2623083 

4,7426121 

40 

1.23091720 

00 

1.97420700-01 

1 .90646400 

00 

3.16366950 

01 

2.37688600 

01 

8.91974450 

00 

54.4299439 

4,8862385 

CONTOUR 

1.21737530 

00 

1 .85804250-01 

1.87581240 

00 
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M A C H 4 INTERMEDIATE  LEFT  CHARACTERISTIC 
CHARACT  21 


POINT 

X 

Y 

MACH  NO. 

MACH  ANG. 

(0) 

P5I  <01 

FLOW  ANG. 

(0) 

X < IN> 

YClN) 

1 

9*4011 7590-01 

0*0 

1.08477780 

00 

6.7197722D 

01 

1*05290740 

00 

0.0 

47.2325420 

0.0 

? 

9.42122380-01 

4.69464590-03 

1 .09050750 

00 

6.64919820 

01 

1.1573U65D 

00 

S.3009134D- 

*02 

47.2821613 

0.1161943 

3 

9.44938240-01 

1.10496750-02 

1.09887870 

00 

6.55079200 

01 

1*31469870 

00 

1.3S602210-01 

47.3518550 

0.2734837 

4 

9.48084750-01 

1.78473630-02 

1.10864610 

00 

6.44223650 

01 

1.50515240 

00 

2*38991450- 

*01 

47.4297324 

0.4417291 

5 

9.51418460-01 

2.47331730-02 

1.11943270 

00 

6.32921250 

01 

1.7233*700 

00 

3.61096500-01 

47.5122430 

0,6121556 

6 

9.54866970-01 

3.15480190-02 

1.13102940 

00 

6.21471430 

01 

1,96639340 

00 

5.00745270-01 

47.5975949 

0.7808257 

7 

9*58387290-01 

3*82144980-02 

1*14329540 

00 

6.1005303D 

01 

2.23221590 

00 

6.56988400-01 

47.6847242 

0.9458236 

8 

9.61951230*01 

4.46950780-02 

1.15612540 

00 

5.98779190 

01 

2.51906560 

00 

8.28913230- 

-01 

47.7729330 

1.1062204 

9 

9.65538930-01 

5.09732340-02 

1.16943420 

00 

5.87723700 

01 

2.82531990 

00 

1.01557780 

00 

47.8617301 

1.2616072 

10 

9.69135710-01 

5.70440310-02 

1.18314950 

00 

5.76935540 

01 

3.1493948D 

00 

1.21598510 

00 

47.9507510 

1,4118618 

u 

9.72730330-01 

6.29091390-02 

1.19720710 

00 

5.66447350 

01 

3.4897026D 

00 

1.42907230 

00 

48.0397199 

1.5570255 

12 

9.76314040-01 

■6.85741040-02 

1.21154810 

00 

5.56280750 

01 

3.8*463170 

00 

1 .65370650 

00 

48.1284183 

1.6972356 

13 

9.79880110-01 

7.40468270-02 

1.22611770 

00 

5.46449850 

01 

4*21253680 

00 

1 .88868140 

00 

40.2166797 

1.8326876 

14 

9.8342344U-01 

7.9336723D-02 

1 .24086340 

00 

5.36963430 

01 

4,59173890 

00 

2.11271990 

00 

48,3043787 

1.9636145 

IS 

9.86940520-01 

8.44542750-02 

1 .25573430 

00 

5.27826520 

01 

4.90OS251D 

00 

2.30447160 

00 

40.3914278 

2.0902759 

16 

9.90429310-01 

9.94100270-02 

1.27068080 

00 

5.19041490 

01 

5.37715480 

00 

Z.6425156D 

00 

48*4777766 

2.2129525 

17 

9.93889280-01 

9.42185250-02 

1.26565420 

00 

5.10608700 

01 

5.77986620 

00 

2.90536200 

00 

48,5634121 

2.3319449 

18 

9.97321460-01 

9.88903530-02 

1.30060640 

00 

5*02527120 

01 

6.18688300 

00 

3.17145190 

00 

48.6483600 

2.4475744 

19 

1.00072860  00 

1.03440230-01 

1.31548980 

00 

4.94794640 

01 

6.59642320 

00 

3.43915990 

00 

40.7326871 

2.5601856 

20 

1.00411510  00 

1.07883150-01 

1.33025710 

00 

4.8740840D 

01 

7.00670770 

00 

3.70679530 

00 

48.0165045 

2.6701496 

21 

1*00748740  00 

i. 12235360-01 

1.34486160 

00 

4.80365000 

01 

7.41596650 

00 

3.97260230 

00 

48.8999711 

2.7778684 

22 

1.01047690  00 

1. 16038090-01 

1.35765970 

00 

4.74393350 

01 

7.77720450 

00 

4.20572910 

00 

48.9739616 

2.8719875 

23 

1.01353790  00 

1.19882260-01 

1.37058280 

00 

4.68542650 

01 

8.14421460 

00 

4,44086530 

00 

49.0497224 

2.9671322 

24 

1.01667200  00 

1.23770300-01 

1.38361130 

00 

4.62816920 

01 

8.5162983Q 

00 

4.67740380 

00 

49.1272938 

3.0633628 

25 

1.01988030  00 

1.27703810-01 

1.39673060 

00 

4.5721 7390 

01 

8.89289360 

00 

4.91490730 

00 

49.2066996 

3.1607185 

26 

1.02316330  OO 

1.31683920-01 

1*40992970 

00 

4.51743520 

01 

9.27353190 

00 

5.16304740 

00 

49.28795S1 

3.2592280 

27 

1.02652140  00 

1*3571 1580-01 

1.42319970 

00 

4.46393640 

01 

9.65781490 

00 

5.39157290 

00 

49.3710703 

3.3589140 

Zfi 

1.029955 OO  00 

1.39787540-01 

1 .43653400 

00 

4.41165310 

01 

1.00453990 

01 

5.63028900 

00 

49.4560528 

3.4597957 

29 

1.03346430  00 

1.43912520-01 

1.44992720 

00 

4.36055600 

01 

1.04359860 

01 

5.86904370 

00 

49.5429083 

3.5618906 

30 

1*0^704940  00 

1.48007190-01 

1.46337500 

00 

4.31061260 

01 

1 .082931 4D 

01 

6.10771870 

00 

49.6316417 

3.6652151 

31 

1.04071060  00 

1.52312190-01 

1.47687420 

00 

4.26178060 

01 

1 . 12251520 

01 

6.34622120 

00 

49.7222577 

3.7697855 

32 

1.04444800  00 

1.56588180-01 

1 .49042230 

00 

4.2140488D 

01 

1.1623294D 

01 

6.58447920 

00 

49*8147608 

3.8756179 

33 

1.0482619U  00 

1. 60915830-01 

1.50401740 

00 

4.1673S76D 

01 

1.20235570 

01 

6.82243690 

00 

49.909156? 

3.9827290 

34 

1.052152b 0 00 

1.65295830-01 

1 .51765800 

00 

4.12167960 

01 

1 .24257780 

01 

7.06005170 

00 

50.0054492 

4.0911356 

35 

1.05612000  00 

1. 69728890-01 

1.53134310 

00 

4,07698010 

01 

1.28298100 

01 

7 .29729130 

00 

50.1036461 

4.2008556 

36 

1.0*016470  00 

1.74215760-01 

1.54507210 

00 

4.03322520 

01 

1.32355190 

01 

7.53413210 

00 

50.2037536 

4.3119073 

CONTOUR  1 ,04964940  00  1.62477880-01  1 .50808200  00 
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M A C M 4 INTERMEDIATE  LEET  CHARACTERISTIC 


CHARACT  31 


POINT 

X 

Y 

MACH  NO* 

MACH  ANG.  1 

ID) 

PSI  (D) 

FLOW  ANG. (0) 

X<IN> 

Y<IN> 

11 

9.14718090-01 

7,56095150-02 

1.03683250 

00 

7.4682308D 

01 

3.10755610-01 

2.53527570-01 

46.6038946 

1.8713647 

1? 

9.15711220-01 

7.91859510-02 

1.04192150 

00 

7.36918210 

01 

3.761J438D-01 

3.06001260-01 

46.6284751 

1.9598829 

13 

9.17162560-01 

8.*0518*7D-02 

1.04938900 

00 

7.235J703D 

01 

4.7868927D-01 

3.87991910-01 

46.664396? 

2.0803157 

14 

9.18853930-01 

8.92881310-02 

1.05813020 

00 

7.09200330 

01 

6.07873660-01 

4.90781660-01 

46.7062582 

2.2099157 

15 

9.20714500-01 

9.4821733D-02 

1 ,06781060 

00 

6.94711340 

01 

7 .6122  f 31D— 01 

6.12346590-01 

46.7523082 

2.3419244 

16 

9.22702*20-01 

9.99262960-02 

1.07824340 

00 

6.80383530 

01 

9.37357630-01 

7.51554850-01 

46.8015100 

2.4732144 

17 

9.24788370-01 

1.05137*80-01 

1.08930190 

00 

6,66381920 

01 

1.1351 0870  00 

9.07491690-01 

46.8531380 

2.6021932 

18 

9,28950050-01 

1.10221810-01 

1.10089080 

00 

6.5279051D 

01 

1 .35336030  00 

1.0792767D  00 

46.9066404 

2.7280323 

19 

9.29169780-01 

1.15162560-01 

1.11293260 

00 

6.39651230 

01 

1.59090910  00 

1.26599980  00 

46.9615796 

2.6503177 

20 

9.31433170-01 

1.199526*0-01 

1.12536110 

00 

6.2698301D 

01 

1.84654610  00 

1.46669700  00 

47.0175993 

2.9688742 

21 

9.33728400-01 

1.2*590810-01 

1 .13811770 

00 

6.14791890 

01 

2.11896060  00 

1.68034090  00 

47.0744071 

3.0836706 

22 

9.360*5780-01 

1.29079520-01 

1 * 15114850 

00 

6.03076520 

01 

2.40677370  00 

1.90583670  00 

47.1317633 

3.1947680 

23 

9.38377500-01 

1.33*237*0-01 

1.16440300 

00 

5.9183140D 

01 

2,70855290  00 

2.142021 00  00 

47.1894742 

3.3022891 

24 

9.407174*0-01 

1.3763025D-01 

1.17783350 

00 

5.8104855D 

01 

3.02281170  00 

2.38766490  00 

47.2473887 

3.4064020 

25 

9.430611*0-01 

1. *1707310-01 

1.19139370 

00 

5.7071874D 

01 

3.34801830  00 

2.64147270  00 

47.3053961 

3.5073107 

26 

9.48*05730-01 

1.45664*20-01 

1.20503890 

00 

5.6083205D 

01 

3,68260680  00 

2.90208590  00 

47.3634256 

3.6052504 

27 

9.477*9990-01 

1.49512320-01 

1.21872540 

00 

5.51378230 

01 

4.02498770  00 

3.16808560  00 

47.4214470 

3.7004876 

28 

9.5009*390-01 

1.53262980-01 

1.23241050 

00 

5.4234698D 

01 

4.37355740  00 

3,43799390  00 

47.4794717 

3.7933180 

29 

9.52**1160-01 

1.569297*0-01 

1.24605260 

00 

5.33726030 

01 

4.T2670930  00 

3.71027690  00 

47.5375552 

3.8840716 

30 

9.5*794*00-01 

1.60527350-01 

1.2S96105O 

00 

5.25511210 

01 

5.0828454D  00 

3.9«334740  00 

47.5957989 

3.9731140 

31 

9.57160230-01 

1.6*072230-01 

1.27304450 

00 

5.17686560 

01 

5.44038350  00 

4.25556470  00 

47.6543542 

4.0608510 

CONTOUR 

9.4989369U-01 

1.529*1900-01 

^1.23123900 

00 
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M A C H A 


UPSTREAM  CONTOUR.  SMOOTHED  SO  TIMES  WITH  FACTORED .65 


X 

Y-CALC 

Y-  IN 

01FF 

1 

0.8933835 

0.1512190 

0.1512190 

0.0 

1 

2 

0.8981780 

0.1512317 

0.1512316 

0.0000001 

2 

3 

0.9031363 

0.1512714 

0.1512712 

0.0000002 

3 

4 

0.9082511 

0.1513406 

0.1513403 

0.0000002 

4 

5 

0.9135380 

0.1514422 

0.1514422 

0.0000000 

5 

6 

0.9189965 

0.1515789 

0.1515787 

0.0000003 

6 

7 

0.9246596 

0,1517547 

0,1517539 

0.0000009 

7 

8 

0.9305367 

0.1619731 

0.1519726 

0.0000005 

8 

9 

0,9366783 

0.1522399 

0.1522387 

0.0000012 

9 

10 

0.9431176 

0.1525609 

0.1525592 

0.0000017 

10 

n 

0.9498937 

0.1529430 

0.1529419 

0.0000011 

n 

12 

0.9570730 

0.1533955 

0,1533942 

0.0000014 

12 

13 

0.9647004 

0.1539274 

0.1539264 

0,0000009 

13 

14 

0.9728364 

0.1545491 

0.1545491 

0.0 

14 

15 

0.9815448 

0.1552720 

0 . 1552  734 

-0.0000014 

15 

16 

0.9908919 

0.1561084 

0.1561105 

-0.0000022 

16 

17 

1.0009363 

0.1S70703 

0.1570737 

-0.0000035 

17 

18 

1.0117627 

0.1S81731 

0.1581767 

-0.0000036 

18 

19 

1.0234319 

0,1594306 

0,1594343 

-0.0000037 

19 

20 

1.0360337 

0.1608591 

0.1608628 

-0.0000036 

20 

21 

1.0496494 

0.1624749 

0.1624779 

-0.0000030 

21 

22 

1.0586537 

0.1635797 

0.1635826 

-0.0000029 

22 

23 

1.0715645 

0.1652002 

0.1652117 

-0,0000036 

23 

24 

1 ,086362  7 

0.1671320 

0.1671360 

-0.0000040 

24 

25 

1.1024792 

0.1692874 

0.1692926 

-0.0000052 

25 

26 

1.1196438 

0.1716423 

0.1716478 

-0.0000054 

26 

27 

1.1376982 

0.1741740 

0.1741802 

-0.0000061 

27 

28 

1.1565561 

0.1760682 

0.1760733 

-0.0000051 

28 

29 

1.1761470 

0.1797U4 

0.1797158 

-0.0000044 

29 

JO 

1.1964348 

0.1826928 

0.1826961 

-0.0000032 

30 

31 

1.2173753 

0.1858020 

0.1858043 

-0.0000022 

31 

32 

1 .2389456 

0.1890300 

0.1890304 

-0.0000004 

32 

33 

1,2611122 

0.1923669 

0.1923672 

-0.0000004 

33 

34 

1.2838486 

0.1958053 

0.1958053 

0.0 

34 

35 

1.3071231 

0.1993364 

0.1993364 

0.0 

35 

36 

1.3309005 

0*2029516 

0.2029S21 

-0,0000005 

36 

37 

1.3551440 

0.2066430 

0.2066430 

0.0 

37 

38 

1.3798149 

0.2104028 

0.2104028 

0.0 

38 

39 

1.4048689 

0.2142226 

0.2142226 

0.0 

39 

40 

1.4302636 

0.2180949 

0.2160949 

0.0 

40 

41 

1.4559664 

0.2220140 

0.2220140 

0,0 

41 

MAX.  ABSOLUTE  ERROR  * 6,1268970-06  AT  POINT  27 
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M A c H 4 INte«MtOIAre  right  characteristic 


LAST 


POINT 

X 

Y 

MACH  NO. 

MACH  ANG, 

(D) 

PSI  <0> 

FLnw  ANG. ' 

to> 

X ( IN) 

Y < lN> 

1 

1.1*068300 

00 

0,0 

1.66015380 

00 

3. 70 J8665D 

01 

1,66373790 

01 

0,0 

52.1966126 

0.0 

2 

1.13*13180 

00 

4 .96135430-03 

1.64318410 

00 

3*74865040 

01 

1.6136H&D 

01 

2.50226280-01 

52.034469 2 

0.1227954 

3 

1.13^612/0 

00 

1.00117670-02 

1 .625R5030 

00 

3*79564810 

01 

1.56247130 

01 

S.0524583D-01 

51.8706443 

0.2477951 

4 

1.120823/0 

00 

1 .51571300-02 

1.60823410 

00 

3*64477020 

01 

1.51039000 

01 

7.63015230-01 

51.7050870 

0.3751448 

s 

1,11*06**0 

00 

2.04022610-02 

1 .59041490 

00 

3*8959 1 950 

01 

1.45767900 

01 

1.02155670 

00 

51.5377939 

0.5049638 

6 

1.10/236/0 

00 

2.57509600-02 

1 .57247050 

00 

3*94898850 

01 

1.40458700 

01 

1.27898870 

00 

Si. 3688057 

0.6373462 

7 

1.1003*300 

on 

3.12060160-02 

I *55447690 

00 

4,00386770 

01 

1.35136010 

01 

1.S3351780 

00 

51.1982044 

0.7723609 

8 

1.09333080 

00 

3.67691680-02 

\ .53650840 

00 

4.06039270 

01 

1.29824110 

01 

1.7834439D 

00 

51.0261121 

0.9100511 

9 

1 .08638*00 

00 

4.24409860-02 

1.51863810 

00 

4*11 844 1 30 

01 

1 .24547000 

01 

2.02715750 

00 

50.8526913 

1 .0504308 

10 

1.07033180 

00 

4,82206520-02 

1 .50093810 

00 

4.1778292D 

01 

1.19328410 

01 

2.26313870 

00 

50,6781476 

1.1934798 

n 

1.0722**6 0 

00 

5.41056060-02 

1.48348050 

00 

4.23835570 

01 

1.14191910 

01 

2.48995760 

00 

50.5027359 

1 .3391346 

13 

1.0661 3500 

00 

6.00909700-02 

1.46633770 

00 

4*29978690 

01 

1.09161070 

01 

2.70626910 

00 

50.3267714 

1.4872747 

13 

1.06801900 

00 

6.61686470-02 

1 .44958440 

00 

4*36184670 

01 

1.04259740 

01 

2.91080960 

00 

50.1506482 

1.6376996 

14 

1.06091700 

oo 

7.23258910-02 

1 .43329920 

00 

4.42420480 

01 

9.95124980 

00 

3. 10239000 

00 

49.9748707 

1.7900937 

IS 

1.0*385690 

00 

7.85429670-02 

1.41756920 

00 

4.48645710 

01 

9.49454920 

00 

3.27988490 

00 

49.8001059 

1.9439688 

16 

1.03687300 

00 

8*47891860-02 

1.40249010 

00 

4.5480961D 

01 

9.05878230 

00 

3. 44221320 

00 

49.6272753 

2.0985651 

17 

1.0  30022*0 

00 

9.10157930-02 

1 .39818630 

00 

4*60845750 

01 

8.64741720 

00 

3.58830090 

00 

49.4577215 

2.2526760 

18 

1.02338880 

00 

9,71421470-02 

1.37482020 

QQ 

4.66661820 

01 

8.26501220 

00 

3.71699670 

00 

49.2935376 

2.4043057 

19 

1.01/11680 

00 

1 .03025340-01 

1.36264220 

00 

4.7211679D 

01 

7.91845070 

00 

3.82685340 

00 

49.1383024 

2.S499170 

30 

1.01 1*9*80 

00 

1.08375950-01 

3 .35212270 

00 

4,76954660 

01 

7.62063550 

00 

3.91535930 

00 

48.9991555 

2.6823466 

31 

1.007*87*0 

00 

1.12235360-01 

1.34486160 

00 

4.80365000 

01 

7.41596650 

00 

3.97260230 

00 

48.89997U 

2.7778684 

23 

1.001285/0 

00 

1.18284240-01 

1 .33402770 

00 

4.85565720 

01 

7.1 1205220 

00 

4.05148220 

00 

48.7464767 

2.9275806 

23 

9.95385510-01 

1,24126240-01 

1.32419270 

00 

4.90408450 

01 

6*83776920 

00 

4.11540370 

00 

48.6004446 

3.0721723 

24 

9.89773480-01 

1.29762900-01 

1.31528290 

00 

4.94900080 

01 

6.59070290 

00 

4.16599000 

00 

48.4615445 

3.2116618 

25 

9.84435130-01 

1.35197670-01 

1.30722610 

00 

4.99050870 

01 

6.36851820 

00 

4.20474180 

00 

48.3294183 

3.3461946 

26 

9,79354660-01 

1.40436270-01 

1.29995200 

00 

5.02874090 

01 

6.1689727D 

00 

4,23302880 

00 

48.2036747 

3.4758520 

27 

9,74514750-01 

1.45486970-01 

1.29339240 

00 

5.0638560D 

01 

5,98992830 

00 

4.25208370 

00 

48.0838852 

3.6008587 

28 

9,69896490-01 

1.50360810-01 

1*28748180 

00 

5. 09 60 3260 

01 

5.82936260 

00 

4.26299670 

00 

47,9695814 

3.7214882 

39 

9.65479390-01 

1 .55071630-01 

1.28215820 

00 

5.12546220 

01 

5.68538460 

00 

4.26671080 

00 

47.8602565 

3.8380827 
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M * C H 4 UPSTREAM  CONTOUR 


RC= 

6.  000000 

ET A0=  8.6700  DEG 

AMACH=  2.2878*37 

8MACH-  3.0821543 

CMACH*  4.0000000 

EMACH*  1.6601538 

GMACHs  2.2878*37 

WALL 

POINT 

X 

Y MACH  NO. 

FLOW  ANG. CO> 

WALTAN 

5ECOIF 

1 

8.93383510- 

01 

1.5121903D-01 

1 .0*716380 

00 

0.0 

0.0 

1.10215*10  00 

? 

8. 98178030- 

01 

1.51231700-01 

1 .06260270 

00 

3.02459250- 

01 

5.27895880-03 

1.09963210  00 

3 

9.03136290- 

01 

1 .51271390-01 

1 .07862930 

00 

6.1*416450- 

•01 

1.07240010-02 

1.0968392D  00 

* 

9.08251 l 10- 

01 

1.5134059D-01 

1 .09523000 

00 

9,36389910- 

01 

1.63270B4D-02 

1.09269530  00 

5 

9.13538010- 

01 

1 .514*2200-01 

1.11249320 

00 

1.26539790 

00 

2.20889510-02 

1.08558260  00 

6 

9.18996*60- 

01 

1.5157894D-01 

1.1303SS8t>  00 

1 .60332250 

00 

2,79905630-02 

1,075156*0  00 

7 

9. 24659570- 

01 

1.51754730-01 

1 .14895920 

00 

1.94981580 

00 

3. *0*38*90-02 

1.06072050  00 

8 

9.31)536650- 

01 

1.51973130-01 

1.16823050 

00 

2.3036495D 

00 

*.02279*70-02 

1.0*26*7*0  00 

9 

9.3667828U- 

01 

1.52239870-01 

1.18835890 

00 

2.66633460 

00 

4.65699*10-02 

1.01916460  00 

10 

9.43117*80- 

01 

1.62560930-01 

1.20935560 

1)0 

3.03621740 

00 

5. 30*16500-02 

9.87911*20-01 

11 

9.4989369U- 

01 

1 .52943040-01 

1.23123900 

00 

3.4115^840 

00 

5.96137**0-02 

9.49521990-01 

12 

9,57073000- 

01 

1 .63395540-01 

1.25411900 

00 

3.79177930 

00 

6.62758170-02 

9.03059030-01 

13 

9.64700380- 

01 

1.63927370-01 

1 ,27794330 

00 

4.17302310 

00 

7.29620510-02 

8.47222*60-01 

14 

9.72836360- 

01 

1.54549070-01 

1.30267850 

00 

4.55114850 

00 

7.96000090*02 

7.8*099510-01 

15 

9.81S44830- 

01 

l. 55271960-01 

1*32834690 

00 

4.92285660 

oo 

8.61321100-02 

7.17*91700-01 

16 

9.90891890- 

01 

1.66108370-01 

1.35503990 

00 

5.285*7690 

00 

9.251154*0-02 

6.5053*180-01 

17 

1.00093630 

00 

1.57070280-01 

1.38292050 

00 

5,636875*0 

00 

9,870068*0-02 

5.86**0400-01 

18 

1.01176270 

00 

1.58173100-01 

1.41208730 

00 

5.97724410 

00 

1.0*702700-01 

5.2*7*0310-01 

19 

1.023*319 0 

00 

1.59430600-01 

1.44272440 

00 

6*  30294810 

00 

1.10453110-01 

*.6*101300-01 

20 

1.0360337 0 

00 

1 .60859120-01 

1,47494090 

00 

6.6117213D 

00 

1.1591 1270-01 

4.07886710-01 

21 

1.04964940 

00 

1.62*7*890-01 

1.50888200 

00 

6.904S359D 

00 

1.21093620-01 

3.53098110-01 

22 

1.05665370 

00 

1 .63579690-01 

1.53088170 

00 

7.0747S540 

00 

1.24109170-01 

3.19092190-01 

23 

1.07156450 

00 

1 .65208170-01 

1.56186230 

00 

7.29060210 

00 

1.27936240-01 

2,79735690-01 

24 

1.08636270 

00 

1.67131980-01 

1 .596601 7D 

00 

7.50789960 

00 

1.3179276D-01 

2.43*25290-01 

25 

1.10247920 

00 

I. 69287440-01 

1 .63358980 

00 

7.71176190 

00 

1. 35414350-01 

2.07807000-01 

26 

1.11964380 

00 

1.71642330-01 

1.67206110 

00 

7.89498270 

00 

1.3867221D-01 

1.7*1*3200-01 

27 

1.13769820 

00 

1.74174030-01 

1.71161100 

00 

8.054946*0 

00 

1.41S1890D-01 

1.44306350-01 

28 

1.16655610 

00 

1. 76868250-01 

1.75191400 

00 

8.192969*0 

00 

1.4397695D-01 

1.17715950-01 

29 

1,17614700 

00 

1.79711420-01 

1.79283120 

00 

8.30795710 

oo 

1.4602606D-01 

9.38*96700-02 

30 

1.19643460 

00 

X. 62692840-01 

1.83415150 

00 

8.4020831D 

00 

1.47704300-01 

7.37369280-02 

31 

1.21737530 

00 

1.85802010-01 

1.875812*0 

00 

8.47775980 

00 

1.4905*190-01 

5.6290*070-02 

32 

1.23694560 

00 

1.89030000-01 

1.9176*070 

00 

8,53562980 

00 

1.50086810-01 

4.18915*50-02 

33 

1.26111220 

00 

1.92366870-01 

1.95959*90 

00 

8.50002320 

00 

1.50879170-01 

3.09451*70—02 

34 

1.2838486U 

00 

1.95805330-01 

2.0015**00 

00 

8.61316380 

00 

1.51*70800-01 

2.17786560-02 

35 

1.30712310 

00 

1.99336440-01 

2.0*340240 

00 

8.63589180 

00 

1.51876600-01 

1.45122710-02 

36 

1.33090050 

00 

2.02951570-01 

2.08509680 

00 

8.65123930 

00 

1.52150650-01 

9.481*5870-03 

37 

1.35514400 

00 

2.06642950-01 

2.12650440 

00 

8.661281*0 

00 

1.52329980-01 

5.7*761310-03 

38 

1.37981490 

00 

2.1 0402760-01 

2.1675528D 

00 

8,66690280 

00 

1.52*30370-01 

2.91359*80-03 

39 

1.40*86090 

00 

2.14222570-01 

2.2081710D 

00 

8.6693*390 

00 

1.52*73970-01 

1.0*252170-03 

*0 

1.43026360 

00 

2.1809*870-01 

2.2482849D 

00 

8.6698209D 

00 

1.52*82*90-01 

2.30580180-0* 

*1 

1.45596640 

00 

2.2201*0*0-01 

2.28784370 

00 

8.67000000 

00 

1.52*8569D-01 

0.0 

A E DC-T  R -78-63 


119 


MACH*  UPSTREAM  CONTOUR 

RC*  6.000000  ETAD*  8.6700  OEG  AMACH*  2.2878*37 


POINT 

X/YO 

Y/YO 

INT.Y/YO 

1 

0,0 

1*0000000 

1.0000088 

2 

0.0317058 

1.0000830 

1.0000929 

3 

0.06*4944 

1.0003463 

1.0003562 

4 

0.0983183 

1.0008039 

1.0008144 

s 

0.1332802 

1.0014758 

1.0014864 

6 

0.1693765 

1.0023801 

1.0023903 

7 

0.2068262 

1 *0035435 

1.0035516 

8 

0.2*56911 

1.0049068 

1.0049947 

9 

0.2863051 

1.0067508 

1.0067572 

10 

0.3288870 

1.0088739 

1.0088791 

11 

0.3736976 

1.0114008 

1.0114059 

12 

0.4211738 

1.0143931 

1.0143998 

13 

0,4716131 

1.0179100 

1.0179204 

14 

0.525*167 

1.0220213 

1.0220373 

15 

0.58300*1 

1.0268017 

1.0268248 

16 

0.6448156 

1.0323328 

1.0323620 

17 

0.7U2386 

1.0386939 

1.0387293 

18 

0.7828325 

1.0459867 

1.0460256 

19 

0. 8800004 

1.0543025 

1.05434U 

20 

0.9433346 

1*0637692 

1.0637853 

21 

1.0333747 

1.0744341 

1.0744669 

22 

1,092919* 

1*0817401 

1.0817717 

23 

1.1782974 

1.0925091 

1*0925435 

24 

1.2761568 

1.1052311 

1.1052701 

25 

1.3827342 

1.1 194850 

1.1195301 

26 

1.4962419 

1.1350577 

1.1351040 

27 

1.61S6349 

1.1517997 

1.1518474 

28 

1.7403*06 

1.1696163 

1.1696609 

29 

1.8698934 

1.1884180 

1.1884549 

30 

2 .0040550 

1.2081339 

1.2081635 

31 

2.1*25332 

1*2286946 

1*2287147 

32 

2.2851759 

1.2500411 

1.2500531 

33 

2.4317621 

1.2721076 

1.2721171 

34 

2.S821161 

i. 2948458 

1*2948518 

35 

2.7360289 

1*3181968 

1.3182015 

36 

2.8932668 

1.3421034 

1,3421088 

37 

3.0535872 

1.3665142 

1.3665203 

38 

3.2167339 

1.3913775 

1.3913815 

39 

3.382*1*3 

1.4166376 

1.4166393 

40 

3.5503*71 

1.4422449 

1.4422444 

41 

3.7203183 

1.4681620 

1.4681620 

ICY  « 


•28*377 


BMACH=  3.08215*3  CMACH*  *.0000000 


PAR/TO 

HYP/YO 

C ( Y> 

1 * ooooooo 

1.0000000 

1.0000838 

1.0000830 

-9.0270280-04 

1.0003466 

1.0003466 

1.3356690-03 

1 .0008055 

1.0008052 

1,7558740-03 

1.0014803 

1.0014792 

1.8944620-03 

1.0023907 

1.0023870 

2.1837070-03 

1.0035648 

1.0035504 

2.5140290-03 

1.0050303 

1,0050178 

2,9363020-03 

1.0068309 

1,0060077 

3.4143290-03 

1 .0090139 

1.0089736 

3.9358510-03 

1.0116375 

1.0115706 

4.5363910-03 

1.0147823 

1.0146746 

5.2087510-03 

1*0185349 

1.0183662 

5.9572190-03 

1*0230051 

1.0227464 

6.7826680-03 

1.0283245 

1.0279343 

7.6845590-03 

1.0346489 

1.0340686 

8.6387150-03 

1.0421550 

1.0413021 

9,6200600-03 

1.0510689 

1.0498275 

1,0593540-02 

1.0616334 

1.0590428 

1.1525550-02 

1.0741567 

1.0715938 

1*2397890-02 

1*0889886 

1.0853466 

1.3189350-02 

1.0995394 

1.0950246 

1.3634470-02 

1.1156987 

1.1096835 

1.4175190-02 

1.1357147 

1.1275768 

1.4667420-02 

1.1593295 

1.1483288 

1*5071350-02 

1.1865616 

1.1718034 

1.537570D-02 

1.2175230 

1.1979341 

1.5584390-02 

1.2523988 

1.2267019 

1.570491D-02 

1.2913751 

1.2580740 

1,5747290-02 

1.3346864 

1.2920421 

1.5723220-02 

1.3825374 

1.3285612 

1.5642070-02 

1.4351691 

1*3676*031 

1.5513620-02 

1.4927889 

1.4091053 

1*5346250-02 

1.5556103 

1.4530040 

1.5146810-02 

1.6238212 

1.4992139 

1.4921960-02 

1,6975827 

1.5476322 

1*4677390-02 

1.7770329 

1.5981445 

1.4417900-02 

1.8622814 

1.6506250 

1.4147730-02 

1.9533938 

1.7049304 

1.3870650-02 

2.0504137 

1.7609166 

1.3589760-02 

EMACH=  1.6601538  GMACM=  2.2878*37 
C(YI)  C(YP1 


-2.8528070-01  1.7714580-03 

-3.5*90110-02  2.0086530-03 

— 9.3*1050D-03  2.0450230-03 

-2.5754650-03  2.3347300-03 

8.70662*0-05  2.7752710-03 

1.4830*50-03  3.32881*0-03 

2,4013550-03  3.9790320-03 

3.1*06260-03  4.6665920-03 

3.7885620-03  5.4633410*03 

*.*381390-03  6.3711370-03 

5.1187970-03  7,36582*0-03 

5.8581*70-03  8.45271 5D-03 

6.67263*0-03  9.6225850-03 

7.5681880-03  1.0822250-02 

8,5300620-03  1.1991*90-02 

9.5216590-03  1.3072830-02 

1.0512040-02  1.4016680-02 

1.1*64790-02  1 .481 894D-02 

1.235*920-02  1.5474*30-02 

1.3159680-02  1.S96194D-02 

1.3610260-02  1.6197960-02 

1. *154200-02  1.6433160-02 

1.46*6660-02  1.6558440-02 

1.505*300-02  1 ,65696  7D-02 

1.5361890-02  1.6482700-02 

1.5573080-02  1.631418D-02 

1.5696*50-02  1,6076830-02 

1.5741650-02  1.S78939D-02 

1.5719550-02  1.54626*0-02 

1,56*0030-02  1.S106340-02 

1.5512610-02  1.4730920-02 

1,53*5590-02  1. *3*0970-02 

1.51*6*6D-02  1.39*2720-02 

1.4921730-02  1.35*2350-02 

1.4677170-02  1.31*3020-02 

1.4417690-02  1.2747970-02 

1.41*7610-02  1.2360360-02 

1.387060D-02  1.1982390-02 

1.3589770-02  1.1615580-02 


2.1533973 


1.8184594  1.3307590-02  1,3307590-02  1,1260630-02 
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M A C H 4 00»NStRE4H  CONTOUR.  ATM-DEG  AXIAL  MACH  NUMBER  DISTRIBUTION 

NO.  OF  POINTS  ON  1ST  CHAR.  IN) - 41  NO.  OF  POINTS  ON  AXIS  (N>*  49  NO.  OF  POINTS  ON  LAST  CHAR.  (NP)*  61 

GAMMA*  1.4000  INFLECTION  ANG.  (ETA)*  8.6700  DEGREES  RAD.  OF  CURV.  (RC>*  6.00000000  SCALE  FACTOR  <SF>  = 24.750386 

BMACH*  3-08215  BMP*  0.98284937  BMPP=  -4.35793230-01  BMPPP*  -3.986325ID-01  SMPP*  -4 . 35793230-01 

CHACH*  4.00000  CMP*  0.0  CMPP*  0.0  CMPPP*  7.88117500-01  SMPPP*  5.32835300-01 

Cl*  3.0821543  C2*  2.19941261  C3=  -1.09116390  00  C4«  -7.44527440-01  C5*  5.54124370-01  C6=  0.0 

AHACH=  2.2878437  XA*  1.4559664  XB*  2.1398501  X8C*  2.2377922  XC*  4.3776423  XD=  6.2945435 
XA(lN)*  60.0000000,  YAIIN)*  5.4949332.  XB(IN)*  76.9263852,  XCIIN1*  132.3126057,  XO(IN)*  179.7566517,  yO(IN)*  12.2500000 

AXIS 


POINT 

X 

X t IN) 

MACH  NO. 

DM/OX 

02M/DX2 

O3M/0X3 

W*Q/ A* 

OW/OX 

02W/DX2 

03W/DX3 

I 

2*13985 

76.92639 

3.082154 

9.828494D-01 

-4.3579320-01 

-3.9863250-01 

1.982672 

2.180194D-01 

-2. 3331610-01 

1,9250830-01 

3 

2*23309 

79.23414 

3.171850 

9.4055420-01 

-4.706S70D-01 

-3.4918460-01 

2.002012 

1. 9709000-01 

-2.1574680-01 

1. 839*550-01 

2*32633 

81.54190 

3,257457 

8.9522330-01 

-5*0091010-01 

-2.9973670-01 

2.019476 

1 .7775830-01 

-1.9907840-01 

1,7336500-01 

7 

2*41957 

83.84966 

3.336713 

8.4728650-01 

-5.2655270-01 

-2.5026880-01 

2.035208 

1.S993300-01 

-1.8344910-01 

1.6177010-01 

9 

2*51282 

86.15742 

3.415394 

7.9717360-01 

-5.4758460-01 

-2.0084080-01 

2.049344 

1.4351390-01 

-1,6892130-01 

1 .4983750-01 

11 

2.60606 

88.46518 

3.487317 

7.4531470-01 

-5.6400600-01 

-1.S139290-01 

2.062011 

1*2839760-01 

-1.5550170-01 

1.3806900-01 

13 

2*69930 

90.77294 

3.554341 

6.9213960-01 

-5.7581680-01 

-L. 0194500-01 

2.073325 

1.1440210-01 

-1.4315750-01 

1.2682020-01 

15 

2*79254 

93.08070 

3.616362 

6.3807820-01 

-S. 8301700-01 

-5.2497090-02 

2.083394 

1.0166960-01 

-1.3182830-01 

1,1633010-01 

17 

2*88578 

95.38846 

3.673317 

5.8356030-01 

-5.8560660-01 

-3.0491730-03 

2.092316 

8.9869260-02 

-1,2143530-01 

1.0675920-01 

19 

2*97902 

97.69622 

3.72S185 

5.290160D-01 

-5.8358560-01 

4.6398740-02 

2.100182 

7.899777D-02 

-1.1188780-01 

9.8209360-02 

21 

3*07226 

100 .00398 

3,771982 

4.7487500-01 

-5.7695400-01 

9.5846660-02 

2.107075 

6.8980900-02 

-1.030873D-O1 

9.0742350-02 

23 

3.16550 

102.31174 

3,813767 

4.2156730-01 

-5.6571190-01 

1.4529460-01 

2.113070 

5. 9753750-02 

-9,4931120-02 

8.4393700-02 

25 

3.25875 

104.61950 

3.050637 

3.6952280-01 

-5*4985910-01 

1 .9474250-01 

2.118240 

5.1261140-02 

-8,7313980-02 

7.9182270-02 

27 

3.35199 

106.92725 

3.882729 

3. 1917140-01 

-5.2939580-01 

2.4419040-01 

2.J22651 

4.345776D-02 

-8.0129370-02 

7.5116090-02 

29 

3.44523 

109.23501 

3.910222 

2.7094300-01 

-5.0432180-01 

2.9363830-01 

2,126365 

3.6308280-02 

-7,3270270-02 

7.2200290-02 

31 

3.53847 

111.54277 

3.933335 

2.2526750-01 

-4.7463730-01 

3.4308620-01 

2,129441 

2.9787330-02 

-6.6629610-02 

7.0430840-02 

33 

3.63171 

113.85053 

3.952324 

1.8257470-01 

-4.4034220-01 

3.9253420-01 

2.131939 

2.3879540-02 

-6.0100670-02 

6.9802270-02 

35 

3*72495 

1 16*15829 

3.967488 

1.4329460-01 

-4.0143650-01 

4.4198210-01 

2.133913 

1.8579420-02 

-5,3577630-02 

7.0301520-02 

37 

3.81019 

118.46605 

3,979165 

1.0785700-01 

-3*5792020-01 

4.9143000-01 

2.135422 

1.3891300-02 

-4.6956320-02 

7.1904850-02 

39 

3*91144 

120,77381 

3.987734 

7,6691950-02 

-3.0979330-01 

5.4087790-01 

2*136523 

9*8290820-03 

-4.0135520-02 

7. 4572240-02 

41 

4*00468 

123.08157 

3.993613 

5.0229240-02 

-2.5705580-01 

5.9032580-01 

2.137276 

6.4159220-03 

-3.3018760-02 

7.8240130-02 

43 

4*09792 

125.38933 

3.997260 

2.8898800-02 

-1.9970770-01 

6.3977370-01 

2.137741 

3.6836340-03 

-2.5516940-02 

8.2812640-02 

45 

4,19116 

127.69709 

3.999175 

1,3130510-02 

-1.3774910-01 

6.8922170-01 

2.137985 

1.6718720-03 

-1.7551760-02 

8.8151680-02 

47 

4*28440 

130.00485 

3.999895 

3.3542760-03 

-7.1179840-02 

7.3866960-01 

2.138077 

4,2691510-04 

-9,0602230-03 

9.4066180-02 

49 

4.37764 

132.31261 

4.000000 

-4.167444D-15 

-6.0303100-15 

7.88H750-01 

2.138090 

-5*3037920-16 

-7.6746100-16 

1.0030160-01 

C9-84-B1-OCI3V 


MACH*  DOWNSTREAM  CONTOUR 


CHARACT  1 


POINT 

X 

r 

MACH  NO. 

MACH  ANG, 1 

(0) 

PSI  <0> 

FLOW  ANG. 1 

[0) 

X(!N) 

Y(JN) 

I 

2.  1.1VB5010 

00 

0.0 

3.08215430 

00 

1.89321590 

01 

5,13173790 

01 

0.0 

76,9263852 

0.0 

? 

2.116*6200 

00 

8.00661650-03 

3.05906210 

00 

1.90805790 

01 

5,08838790 

01 

2.16750000-01 

76.3*75216 

0.1931669 

3 

2.09.349230 

00 

1. 58396700-02 

3,03617440 

00 

1.92300*70 

01 

5*04503790 

01 

4.33500000*01 

75.7790116 

0.3920379 

4 

2.07093130 

00 

2.35040150-02 

3,01348770 

00 

1.93805800 

01 

5,00168790 

01 

6.50250000-01 

75.2206173 

0.5817335 

5 

2.0*6  76960 

00 

3.100*3580-02 

2,99099830 

00 

1.9532198D 

01 

4,95833790 

01 

8.67000000-01 

7*. 6721080 

0,7673698 

6 

2. 026998 JO 

00 

3.83*52580-02 

2.96870300 

00 

1.968*9190 

01 

4,91498790 

01 

1.08375000 

00 

7*. 133259* 

0.9490599 

7 

2.00660850 

00 

*.55311350-02 

2.94659820 

00 

1.98387640 

01 

4,87163790 

01 

1.30050000 

00 

73.6038537 

1.126913 2 

a 

1,98*59170 

00 

5.25662760-02 

2.9246807D 

00 

1.99937510 

01 

4.8282879D 

01 

1.51725000 

00 

73.0836792 

1.3010356 

9 

1,96393950 

00 

5.9454836D-02 

2,90294730 

00 

2.0149903D 

01 

4. 78493790 

01 

1. 73400000 

00 

72.5725301 

1,4715302 

10 

1.9*J6*390 

00 

6.6200847D-02 

2,88139460 

00 

2.03072*00 

01 

4,74158790 

01 

1.95075000 

00 

72,0702063 

1,6384965 

11 

1.92369700 

00 

7.28082170-02 

2,86001960 

00 

2.0*6576*0 

ox 

4.69823790 

01 

2.16750000 

00 

71.5765135 

1.8020315 

12 

1,90*09130 

00 

7.92807*10-02 

2,«388193D 

00 

2.06255560 

01 

4.6548879D 

01 

2.38425000 

00 

71,0912626 

1.9622290 

13 

1.88*81910 

00 

8.56220990-02 

2.81 77905D 

oo 

2.0  7865800 

01 

4,61 15379D 

01 

2.60100000 

00 

70.61*2697 

2.1191800 

14 

1.865873*0 

00 

9.18358650-02 

2,79693030 

00 

2.0**88790 

01 

4.5681879D 

01 

2.81775000 

00 

70.1*53561 

2.2729731 

IS 

1,8*72*710 

00 

9.79255070-02 

2,77623580 

00 

2.1112*760 

01 

4.52483790 

01 

3.03450000 

00 

69.68*3*78 

2.4236941 

16 

1.828933*0 

00 

1.0389*390-01 

2,75570420 

00 

2.12773970 

01 

4.48148790 

01 

3.25125000 

00 

69.2310756 

2.5714263 

17 

1 .81092550 

00 

1.097*5790-01 

2,73533250 

00 

2.1*436670 

01 

4.43813790 

01 

3.46800000 

00 

68.7853750 

2.7162507 

18 

1.79321720 

00 

1.15*82880-01 

2,71511820 

00 

2.16113110 

01 

4*39478790 

01 

3.684T500D 

00 

68.3*70857 

2.8582458 

19 

1.77580190 

00 

1.211087*0-01 

2.69505840 

00 

2.1)803560 

01 

4.35143790 

01 

3.90150000 

00 

67,9160519 

2.9974880 

20 

1.75867370 

00 

1.2662637D-01 

2,67515040 

00 

2.19508300 

01 

4.30808790 

01 

4.H825000 

00 

67. *921219 

3.1340515 

21 

1.7*182650 

00 

1.3203868D-01 

2.6551917D 

00 

2.2122760D 

01 

4.26473790 

01 

4,33500000 

00 

67.0751*79 

3.2680083 

22 

1.72525*60 

00 

1.373*8510-01 

2.63577960 

00 

2.2296175D 

01 

4.22138790 

01 

4,55175000 

00 

66.66*9862 

3.3994286 

23 

1.70895220 

00 

l.*255860D-01 

2.61631170 

00 

2.2*71 105D 

01 

4.17803790 

01 

4,76850000 

00 

66.261*968 

3.5283805 

24 

1.69291*00 

00 

1.476716*0-01 

2.5969853D 

00 

2.26*75810 

01 

4.13468790 

01 

4.98525000 

00 

65.86*5*3* 

3.6549301 

25 

1.67713**0 

00 

1.52690220-01 

2,57779810 

00 

2.2825633D 

01 

4.0913379D 

01 

5.2020000D 

00 

65. *739932 

3.7791418 

26 

1.66160830 

00 

1.57616870-01 

2,55874760 

00 

2.3U0S295D 

01 

4.04798790 

01 

5.4187500D 

00 

65.0897170 

3.9010784 

27 

1.64633070 

00 

1.62*5*06D-0l 

2,53983140 

00 

2.31865990 

01 

4.00463790 

01 

5 .63550000 

00 

6*. 7115887 

4,0208006 

28 

1.631296*0 

00 

1.67204170-01 

2.52104720 

00 

2,33695800 

01 

3.96128790 

01 

5,85225000 

00 

6*. 339*858 

4,1383679 

29 

1.61650081) 

00 

1.71869550-01 

2.50239260 

00 

2.355*2720 

01 

3.91793790 

01 

6,06900000 

00 

63,9732887 

4.2538379 

30 

1.60193910 

00 

1.76*52*60-01 

2.48386530 

00 

2.37*07130 

01 

3.8745879D 

01 

6,28575000 

00 

63.6128808 

4.3672666 

31 

1.58760670 

00 

1.80955110-01 

2,46546320 

00 

2.39289390 

01 

3.8312379D 

01 

6.50250000 

00 

63.2581*89 

4.4767089 

32 

1.573*9920 

00 

1.85379650-01 

2.44718380 

00 

2.41189890 

01 

3.7878879D 

01 

6,71925000 

00 

62.9089822 

4.5882180 

33 

1.55961220 

00 

1.89728170-01 

2.42902520 

00 

2. *31090 30 

01 

3.74453790 

01 

6.93600000 

00 

62,5652729 

4.6958456 

3* 

1.5459*1*0 

00 

1.9*002720-01 

2.4109850D 

00 

2.450*7220 

01 

3.7011879D 

01 

7,15275000 

00 

62.2269161 

4.8016422 

35 

1.532*8280 

00 

1.98205280-01 

2.39306110 

00 

2.4)00*890 

01 

3.65783790 

01 

7.36950000 

00 

61.8938093 

4.9056572 

36 

1.51923220 

00 

2.02337790-01 

2.37525150 

00 

2.48982*60 

01 

3.6144879D 

01 

7.58625000 

00 

61.5658527 

5.0079384 

37 

1.50618580 

00 

2.06*02130-01 

2.35755390 

00 

2.50980*00 

01 

3.57U379D 

01 

7.8030000D 

00 

61.2*29*89 

5.1085325 

38 

1.49333970 

00 

2.1040016D-01 

2.33996640 

00 

2.52999170 

01 

3,52778790 

01 

8.01975000 

00 

60.9250032 

5.2074852 

39 

1.48069020 

00 

2.1*333660-01 

2,32248690 

00 

2.5503925D 

01 

3.48443790 

01 

8.23650000 

oo 

60.6119228 

5.3048408 

*0 

1.46023360 

00 

2. 1820*380-01 

2.30511340 

00 

2.571011*0 

01 

3,44108790 

01 

8.4S32500D 

00 

60.3036178 

5.4006428 

*1 

1.455966*0 

00 

2.2201*0*0-01 

2,28784370 

00 

2.5918536D 

01 

3,39773790 

01 

8.67000000 

00 

60.0000000 

5.4949332 

MASS  - 0,9999999136 
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M A C H 4 UOWNSTREAH  CONTOUH*  SMOOTHEO  50  TIMES  *ITH  FACTOR«0.85 


X 

Y-CALC 

Y-IN 

OIFF 

1 

1.4559664 

0.2220140 

0.2220140 

0.0 

1 

2 

1.4783065 

0.2254207 

0.22542U 

-0.0000004 

2 

3 

1.5005471 

0.2288121 

0.2288122 

-0.0000002 

3 

4 

1.5227029 

0.2321903 

0.2321902 

0.0000001 

4 

6 

1 . 544  7888 

0.2355573 

0.23585 7o 

0.0000004 

5 

6 

1.5668216 

0.2389156 

0.2389150 

0.0000007 

6 

7 

1.5888196 

0,2422675 

0.2422666 

0.0000009 

7 

8 

1.6108018 

0.2456153 

0,2456146 

0.0000007 

8 

9 

1.6327838 

0.2489607 

0.2499617 

-0,0000010 

9 

iO 

1.6547950 

0,2523073 

0.2523073 

-0.0000000 

10 

11 

1.6768523 

0.2556568 

0.2556564 

0.0000004 

11 

12 

1,6989763 

0.2590114 

0.2590116 

-0.0000002 

12 

13 

1.72U884 

0.2623733 

0,2623733 

-0,0000000 

13 

14 

1.7435111 

0,2657447 

0.2657437 

0.0000010 

14 

IS 

1.7659655 

0.2691277 

0.2691271 

0.0000006 

15 

16 

1.7885670 

0.2725233 

0.2725249 

-0.0000016 

16 

17 

1.8113487 

0,2759349 

0.2759349 

0.0000000 

17 

la 

1.8343264 

0.2793635 

0*2793639 

-0.0000004 

18 

19 

1.8575201 

0.2828101 

0.2828102 

-o.ooooooi 

19 

20 

1.8809524 

0.2862765 

0.2862751 

0.0000014 

20 

21 

1.9046426 

0.2897636 

0.2897639 

-0.0000003 

21 

22 

1.9286045 

0.2932714 

0.2932721 

-0,0000007 

22 

23 

1.9528712 

0.2968028 

0.2968031 

-0.0000003 

23 

24 

1.9774540 

0.3003574 

0.3003592 

-0.0000018 

24 

25 

2.0023732 

0.3039357 

0.3039348 

0.0000009 

25 

26 

2.0276463 

0.3075379 

0.3075385 

-0,0000006 

26 

27 

2.053282b 

0.3111628 

0.3111637 

-0.0000009 

27 

28 

2.0793143 

0.3148122 

0.3148121 

0.0000001 

28 

29 

2.1057480 

0.3184841 

0.3184853 

-0.0000012 

29 

iO 

2.1326005 

0.3221780 

0.3221758 

0.0000022 

30 

31 

2.1598844 

0.3258924 

0.3258930 

-0.0000006 

31 

32 

2.1876038 

0.3296247 

0.3296246 

0.0000002 

32 

43 

2.2157874 

0.3333758 

0.3333762 

-0.0000004 

33 

34 

2,2444348 

0,3371422 

0.3371430 

-0,0000008 

34 

35 

2.2735572 

0.3409220 

0.3409208 

0.0000012 

35 

36 

2.3031506 

0.3447114 

0.3447171 

-0.0000057 

36 

37 

2.3332 387 

0.3485098 

0.3485106 

-0.0000008 

37 

38 

2.3638162 

0.3523132 

0.3523172 

-0.00000J9 

38 

39 

2.3948832 

0.3561181 

0.3561184 

-0.0000003 

39 

40 

2.4264414 

0.3599210 

0.3599209 

0.0000000 

40 

41 

2.4584751 

0.3637164 

0.3637192 

-0.0000028 

41 

*2 

2.4910016 

0.3675029 

0.3675020 

0.0000009 

42 

43 

2.5240006 

0.3712742 

0.3712773 

-0.0000030 

43 

<*4 

2.5574640 

0.3750262 

0,3750226 

0.0000036 

44 

45 

2.5913777 

0.3787536 

0.3787554 

-0.0000018 

45 

46 

2.6257145 

0.3824508 

0,3824499 

0*0000009 

46 

<♦7 

2.6604786 

0.3861155 

0.3861174 

-0.0000018 

47 

48 

2.6956345 

0,3897415 

0.3897411 

0.0000005 

48 

*9 

2.7311606 

0.3933244 

0.3933235 

0.0000010 

49 

50 

2.7804383 

0.3981596 

0.3981670 

-0.0000074 

50 

5 1 

2.8303081 

0.4028951 

0.4028965 

-0.0000014 

51 

52 

2.8807504 

0.4075249 

0.4075214 

0.0000035 

52 
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53 

2*9317139 

0.4120413 

0.4120429 

-0,0000017 

53 

54 

2.9831884 

0.4164406 

0.4164456 

-0.0000050 

S4 

*5 

3.0351722 

0.4207206 

0.4207173 

0.0000033 

55 

b6 

3.0876232 

0.4248761 

0*4248761 

0.0 

56 

37 

3. 1405382 

0.4289056 

0.4289149 

-0.0000092 

57 

be 

3.193921b 

0*4328084 

0.4328062 

0.0000022 

58 

59 

3.2477348 

0.4365807 

0.4365807 

0.0000000 

59 

60 

3.3019779 

0.4402224 

0.4402325 

-0.0000102 

60 

01 

3.3566594 

0.4437334 

0.443  7302 

0.0000032 

61 

oH 

3.4117403 

0.4471H2 

0.4471113 

-0.0000001 

62 

63 

3.4672234 

0.4503561 

0.4503640 

-0. 0000079 

63 

64 

3.5231177 

0.4534689 

0*4534660 

0.0000029 

64 

65 

3,5793863 

0.4564483 

0.4564488 

-0.0000005 

65 

66 

3.6360322 

0.4592957 

0.4593053 

-0.0000097 

66 

67 

3.6930612 

0.4620126 

0.4620117 

O.OOoOOOd 

67 

66 

3.7504417 

0.4645990 

0.4645983 

0.0000007 

68 

69 

3.8081853 

0.4670572 

0.4670598 

-0.0000026 

69 

70 

3.8662636 

0.4693873 

0.4693890 

-0.0000017 

70 

71 

3.9246796 

0.4715916 

0.4715896 

0.0000020 

71 

72 

3.9834323 

0.4736721 

0.4736688 

0.0000033 

72 

73 

4.0424953 

0.4756301 

0.4756316 

-0.0000014 

73 

74 

4.1018677 

0.4774685 

0.4774722 

-0.0000037 

74 

75 

4.1615486 

0.4791899 

0.4791889 

0.0000010 

75 

76 

4.2215140 

0.4807971 

0.4807957 

0.0000014 

76 

77 

4.2817672 

0.4822935 

0.4822915 

0.0000020 

77 

78 

4.3422861 

0,4836819 

0.4836815 

0.0000003 

. 78 

79 

4.4030717 

0.4849655 

0.4849659 

-0.0000004 

79 

ao 

4.4641037 

0.4861472 

0.4861492 

-0.0000020 

80 

ttl 

4.5253768 

0.4872307 

0.4872314 

-0.0000008 

81 

82 

4.586884© 

0,4802197 

0*4882193 

0.0000004 

02 

83 

4,6486081 

0.4891185 

0.4891186 

*0.0000001 

83 

84 

4.7105436 

0.4R99314 

0.4899311 

0.0000003 

84 

65 

4.7726727 

0.4906627 

0.4906628 

-0.0000002 

8b 

86 

4,8349909 

0.4913166 

0.4913163 

0.0000003 

86 

87 

4.8974804 

0.4918974 

0.4918974 

0.0 

87 

68 

4.9601354 

0.4924095 

0.4924092 

0.0000003 

88 

89 

6.0229390 

0.4928577 

0.4928577 

0.0 

89 

90 

5,0858844 

0.4932465 

0.4932463 

0.0000002 

90 

91 

6.1489555 

0.4935603 

0.4935809 

-0.0000006 

91 

92 

5.2121447 

0.4938637 

0.4938637 

0.0 

92 

93 

5.2754384 

0.4941018 

0,4941011 

0. 0000006 

93 

94 

5.3388238 

0.4942989 

0.4942984 

0.0000005 

94 

95 

5.4022929 

0.4944599 

0.4944593 

0.0000006 

95 

96 

5.4658324 

0.4945892 

0.4945890 

0.0000002 

96 

97 

5.5294342 

0.4946909 

Q .4946906 

0. 0000003 

97 

98 

5.5930872 

0.4947690 

0.4947681 

0.0000009 

98 

99 

5.6567813 

0,4948275 

0.4948264 

o.oooouio 

99 

100 

5.7205095 

0.4946696 

0.4948687 

0.0000009 

100 

101 

5.7842631 

0,4948986 

0.4948979 

0.0000010 

101 

102 

5.84803*5 

0.4949182 

0.4949172 

0,0000010 

102 

103 

5.9118183 

0.4949301 

0.4949293 

0*0000008 

103 

104 

5.9756089 

0.4949369 

0.4949362 

0.0000007 

104 

105 

6.0394017 

0.4949403 

0.4949397 

0,0000007 

105 

106 

6.1031937 

0.494941 7 

0.4949412 

0.0000005 

106 

107 

6.1669Q22 

0.4949420 

0*4949417 

0,0000004 

107 

108 

6.23076S  7 

0.4949419 

0,4949418 

0.0000001 

108 
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MAX. 


6*2945435  0.4949418  0.4949*18  0,0 

ABSOLUTE  ERROR  « 1.0154520-05  AT  POINT 


60 


109 


TO 

4N 
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HUH*  DOWNS! HE ft*  CONTOUtt 


RCa  6.000000 


ETAD*  8.6700  OEG  AMACH*  2.2878*37 


BMACH*  3.0821543  CMACH*  4.0000000  EHACH*  1.6601538  GMACH= 


ro 

Ui 


WALL 


POINT 

X 

Y 

MACH  NO. 

FLOW  ANG. 

(0) 

WALTAN 

SECDIF 

41 

1.45596640 

00 

2.22014040-01 

2.28784370 

00 

8.67000000 

00 

1.5248569D-01 

0.0 

42 

1.47830650 

00 

2.25420680-01 

2.32140840 

00 

8.67012960 

00 

1.52488000-01 

-1.2304520D-04 

43 

1.50054710 

00 

2.28812060-01 

2.35412350 

00 

8.66969540 

00 

1.62*80250-01 

-5.30408540-04 

44 

1. 5227029m 

00 

2. 32190250-01 

2.38604*70 

00 

0.66881280 

00 

1.52*64*80-01 

-9.48187020-04 

45 

1.544/8880 

00 

2.35557340-01 

2.4172256D 

00 

8,66734830 

00 

1.52*30330-01 

-1.56133500-03 

46 

1.56682160 

00 

2 .38915640-01 

2.4*771610 

00 

8.66*90250 

00 

1.5*396080-01 

-2.3928*830-03 

47 

1.58081960 

00 

2.42267480-01 

2.47756250 

00 

8.66146050 

00 

1.52333000-01 

-3.50869150-03 

48 

1 .61080180 

00 

2.45615280-01 

2.50680800 

00 

8.6663*270 

00 

1.52241790-01 

-4,97225660-03 

49 

1.63*78380 

00 

2.48960660-01 

2.53547180 

00 

8. 64920930 

00 

1.6*114400-01 

-6,66159790-03 

50 

1.66479500 

00 

2.52307270-01 

2.56359100 

00 

8.63992810 

00 

1.51948670-01 

-8.46245440-03 

51 

1*67605230 

00 

2.55656790-01 

2.59121850 

00 

8.6*8319*0 

00 

1.51741390-01 

-1.03770580-02 

52 

1.698976 JO 

00 

2.590H39D-01 

2.61838670 

00 

8.6142*330 

00 

1 .51490070-01 

-1.23672490-02 

53 

1.72118840 

00 

2.62373260-01 

2.64509600 

00 

8.59759700 

00 

1 .51 1 9290D-0 1 

-1. 44339310-02 

54 

1.74351110 

00 

2.657*4700-01 

2.67137910 

00 

8.57622260 

00 

1.50847020-01 

-1.65889750-02 

55 

1.76596550 

00 

2.69127690-01 

2.69728640 

00 

8.55596860 

00 

1.50449000-01 

-1.88643020-02 

56 

1.70866700 

00 

2.72523280-01 

2.72281040 

00 

8.53O5023D 

00 

1,49996730-01 

-2.12775550-02 

57 

1.81134870 

00 

2.75934950-01 

2.7*797250 

00 

8.50183320 

00 

1.49*83710-01 

-2.37701030-02 

58 

1.83432640 

00 

2.79363460-01 

2.77282390 

00 

8.469595*0 

00 

1.48900530-01 

-2.629742S0-02 

59 

1.06752010 

00 

2.82810130-01 

2.797347*0 

00 

8.4337*300 

00 

1.48268970-01 

-2.88056290-02 

60 

1.88095240 

00 

2.86276500-01 

2.82156320 

00 

0.39426340 

00 

1.4/564850-01 

-3.12422490-02 

61 

1.90464260 

00 

2.89763570-01 

2.84551960 

00 

8.36115360 

00 

1 .467961*0—01 

-3.36181180-02 

62 

1.92860450 

00 

2.93271410-01 

2.86916290 

00 

8.30437660 

00 

1.469622*0-01 

-3.59159160-02 

63 

1.95*87120 

00 

2.96802880-01 

2.89256680 

00 

8.25393850 

00 

1.45063290-01 

-3.81304910-02 

64 

1.97745400 

00 

3.00357390-01 

2.91572990 

00 

8.19981*10 

00 

1.4*098890-01 

-4.02971140-02 

65 

2.00*37320 

00 

3.03935710-01 

2.93862090 

00 

8.1*19288D 

Of) 

1.43067770-01 

-4.2*356770-02 

66 

2.02764630 

00 

3.07537910-01 

2.961.30880 

00 

8.000181 7D 

00 

1.41960190-01 

-4.4568599D-02 

67 

2.063*8250 

00 

3.11162800-01 

2. 983732 7D 

uo 

8.014*6080 

00 

1.40798040-01 

-4.66810250-02 

68 

2.07931*30 

00 

3.14812190-01 

3.00S95120 

00 

7.9**62770 

00 

1.39555450-01 

-4.87291550-02 

69 

2.105/4800 

00 

3.18484120-01 

3.02796030 

00 

7.87072020 

00 

1.382*0630-01 

-5,06592410-02 

70 

2.132600SO 

00 

3.221 77950-Oi 

3.04972460 

00 

7.792816*0 

00 

1.36066230-01 

-5.24583210-02 

71 

2.16988440 

00 

3.25892360-01 

3.07131070 

00 

7.71095350 

00 

1,36399980-01 

-5.41254710-02 

72 

2.10760380 

00 

3.29624750-01 

3.09263180 

00 

7.6*527290 

00 

1.33877460-01 

-5.56126120-02 

73 

2.21578740 

00 

3.33375790-01 

3.11377560 

00 

7.53692490 

00 

1.32290420-01 

-5.69652240-02 

74 

2.2444348 0 

00 

3.37142180-01 

3.13469550 

00 

7.44293890 

00 

1.30639460-01 

-5.82301480-02 

75 

2.273657*0 

00 

3.40922010-01 

3.15538820 

00 

7.34638540 

00 

1.28926900-01 

-5 .93567920-02 

76 

2.30315060 

00 

3.44711360-01 

3.1 7588*50 

00 

7.246*88*0 

00 

1.27153790-01 

-6.03616650-02 

77 

*.33323870 

00 

3.40509850-01 

3.19611710 

00 

7 .1*323460 

00 

1.2532295O-01 

-6.12757190-02 

78 

2*36381620 

00 

3.62313240-01 

3.21616690 

00 

7.03676960 

00 

1 ,23*36040-0 1 

-6.20799660— Q 2 

79 

2.39488320 

00 

3.56118050-01 

3.23594860 

00 

6.92723920 

00 

1.21495700-01 

-6,28181040-02 

80 

2.4*644140 

00 

3.59920960-01 

3.25561S70 

00 

6.81462580 

00 

1.19501690-01 

-6.35305580-02 

«1 

2.45847510 

00 

3.63716440-01 

3.27483130 

00 

6.69900170 

00 

1.17465340-01 

-6.41973460-02 

82 

2.49100160 

00 

3.67502880-01 

3.29389480 

00 

6.58037070 

00 

i. 15356700-01 

-6.47685390-02 

83 

2.5*400060 

00 

3.7127*250-01 

3.31273860 

00 

6.45901780 

00 

1.13211110-01 

-6.52089660-02 

84 

2.58746400 

00 

3.75026160-01 

3.33127610 

00 

6.33518560 

00 

1.11022660-01 

-6.5*7651 7 D-02 

85 

2.591377  7u 

00 

3. 78753640-01 

3.3496037D 

00 

6,20932380 

00 

1.08799420-01 

-6.54975180-02 

86 

2. 62571*50 

00 

3.82450830-01 

3.36760090 

00 

6.08205860 

00 

1.06552470-01 

-6.53313770-02 

87 

2.660*7860 

00 

3.86115540-01 

3.38537410 

00 

5.9535/330 

00 

1.04286060-01 

-6.50780850-02 

88 

2.69663*50 

00 

3.89741540-01 

3.40284370 

00 

5.8*416950 

00 

1.0*002330-01 

-6.47570580-02 

89 

2.73116060 

00 

3. 9 33244*0- CU 

3.42094600 

00 

S. 69402950 

00 

9.97080270-02 

-6.438921*0-02 

90 

2.780*3831) 

00 

3.98159610-01 

3.4*320040 

00 

5*51470900 

00 

9.66481560-02 

-6.38278660-02 

2.2878437 
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<* 


91 

2*83030810 

00 

4.02895060-01 

3.46575960 

00 

5.33*80980  00 

9,33800040-02 

92 

2.88075040 

00 

4*07524940-01 

3.48781700 

00 

5.16*71600  00 

9.02102850-02 

93 

2-93171390 

00 

4.12041250-01 

3.50936700 

00 

4. 9760394D  00 

8, 7050580D-02 

94 

2*98318840 

00 

4*16440610-01 

3.53038690 

00 

4. 711633260  00 

8.39078880*02 

95 

3.03517 220 

00 

4.20720630-01 

3.55087060 

oo 

4.61870130  00 

8.U  78661 10-02 

96 

3.08762320 

00 

4.24876100-01 

3.570A751D 

(JO 

4.4,267510  00 

7 ,76950600-02 

97 

3.1 4053820 

00 

4.28905610-01 

3,59040450 

00 

4.26642520  oo 

7.46362000-02 

98 

3,19392160 

00 

4.32808780-01 

3.60938070 

00 

4.0959V670  0(1 

7,16106630-02 

99 

3.24?  7340u 

00 

4*36580740-01 

3.62790670 

00 

3.92570460  00 

6.86236900-02 

100 

3.30197790 

00 

4*4022235D-01 

3.64598720 

00 

3,75767600  00 

6,56780110-02 

101 

3*35665940 

00 

4.43733410-01 

3.66351610 

00 

3,59166130  00 

6.27720600-02 

102 

3*41 174030 

00 

4.47111210-01 

3.68062400 

00 

3.42846300  00 

6.99094880-02 

103 

3*46722340 

00 

4.50356100-01 

3,69728240 

00 

3.26763630  00 

5.70929240-02 

104 

3.52311770 

00 

4*53468920-01 

3.71341070 

00 

3,10954750  00 

5.4325190D-02 

105 

3.57938630 

00 

4,56448340-01 

3.72911800 

00 

2.95453280  00 

5. 1612080D-02 

106 

3. 6J60322D 

00 

4.5929S660-01 

3.74439160 

00 

2.80281810  00 

4.89574620-02 

107 

3.69306120 

00 

4.62012580-01 

3.75912190 

00 

2.6544650D  00 

4.63621550-02 

108 

3.750441 70 

00 

4.64599030-01 

3,77342730 

00 

2.50947330  00 

4,38266000-02 

109 

3.8O018S3U 

00 

4.67057160-01 

3.78731190 

00 

2,36777510  00 

4.13490120-02 

110 

3.86626360 

00 

4.69387330-01 

3.80089MO 

00 

2,22945230  oo 

3.89309330-02 

111 

3.92467960 

00 

4.71S91590-01 

3.81369370 

00 

2,09469330  00 

3.65755920-02 

112 

3.98343230 

00 

4.73672060-01 

3.82606860 

00 

1.96358390  00 

3.42844270-02 

113 

4*0*249530 

00 

4,75630130-01 

3.83810500 

00 

1,83629020  00 

3.2060288D-02 

114 

4*1 0186770 

00 

4.77468460-01 

3.84966690 

00 

1 ,71298390  00 

2.99061200-02 

115 

4*16154860 

00 

4, 79189900-01 

3.86073590 

00 

1,59386920  00 

2.78254430-02 

116 

4*22151400 

00 

4.00797090-02 

3.071 36370 

00 

1,47910460  00 

2.58209810-02 

117 

4,20176720 

00 

4.82293500-01 

3.88155070 

00 

1,36855600  OO 

2.38903520-02 

118 

4, 34228610 

00 

4.83681070-01 

3. 89129010 

00 

1.26208490  00 

2.203U01D-02 

119 

4*40307170 

00 

4,04965480-01 

3.90050240 

00 

1. IS 958620  00 

2.02413610-02 

120 

4*4441037 0 

00 

4.86M7200-01 

3.90941400 

00 

1.06122930  00 

1.8524064D-02 

121 

4.52537680 

00 

4.87230670-01 

3.91 776450 

oo 

9.67232420-01 

1.68829940-02 

122 

4.50688480 

00 

4.88219730-01 

3.92567280 

00 

8,77824190-01 

1.53221210-02 

123 

4.64060810 

00 

4.89118500-01 

3.93313700 

00 

7,93170760-01 

1.38443260-02 

124 

4.71054360 

00 

4.89931400-01 

3.94016020 

00 

7.13216540-01 

1.24486200-02 

125 

4.77267270 

00 

4.90662670-01 

3.94674250 

oo 

6,37848070-01 

1.11330090-02 

126 

4.83499090 

00 

4.91316630-01 

3.95288890 

00 

5,66897940-01 

9.89455850-03 

127 

4.89748040 

00 

4.91897390-01 

3.95860230 

00 

5.0044818D— 01 

8.73469070-03 

128 

4.96013540 

00 

4 .92409550-0 1 

3.96388950 

00 

4,38643900-01 

7.6S59298D-03 

129 

5.0229390 0 

00 

4.92857730-01 

3.96875630 

00 

3.81404340-01 

6.65685980-03 

no 

5.08588440 

00 

4.93246500-01 

3.97321160 

00 

3.28570940-01 

5.73470760-03 

131 

5* 1*895550 

00 

4.93560290-01 

3.97726450 

00 

2.80140110-01 

4.88940620-03 

132 

5.21214470 

00 

4*93863750-01 

3,98090200 

00 

2,36254540-01 

4.123*4290-03 

133 

5.27543840 

00 

4,94101760-01 

3,98415010 

oo 

1 .96860790-01 

3.43588240-03 

134 

5.33882380 

00 

4.94298940-01 

3.9870320D 

00 

1.61797200-01 

2.82390140-03 

135 

5.40229290 

00 

4*94459940-01 

3,90956410 

00 

1.30972270-01 

2.28590120-03 

136 

5.46583240 

oo 

4.94589230-01 

3.99176390 

00 

1.04101280-01 

1.81691210-03 

137 

5.52943420 

00 

4.94690910-01 

3.99364030 

00 

8.09594730-02 

1.41301030*03 

138 

5.59308720 

00 

4*94769030-01 

3.99519340 

00 

6.1439804D-02 

1.07232730-03 

139 

5.65678130 

00 

4.94827460-01 

3.99647930 

00 

4,52339500-02 

7.89451520-04 

MO 

5.72050950 

00 

4.94069620-01 

3.99752190 

00 

3.20876320-02 

5.6003*890-04 

141 

5.78426310 

00 

4,94898850-01 

3.99832480 

00 

2.18325650-02 

3.81050160-04 

M2 

5.04003450 

00 

4.94920220-01 

3.99092550 

00 

1,40422610-02 

2.4508369D-04 

M3 

5,91181830 

00 

4.94930110-01 

3.99936510 

00 

8.3783*170-03 

1.46229650-04 

144 

5.97560890 

00 

4.94936860-01 

3.99965820 

00 

4.59515570-03 

8.02005960-05 

M 5 

6,039401 70 

00 

4.94940340-01 

3.99983820 

00 

2,17269440-03 

3, 79206710— 05 

-6*31854660-02 

-6,242U2t0-0£ 

-6*15287670-02 

-6*05507940*02 

-5*94947300-02 

-5*83768960-02 

-5*72439900-02 

-5*60914700-02 

-5*49081020-02 

-5*37283630-02 

-5*25589320-02 
-5*13695170-02 
-5*01431120-02 
-4,88693920-02 
-4 , 75425320-02 
-4*61882220-02 
-4*48505220-02 
-4.38496100-02 
-4*22726030-02 
-4*09793830-02 

-3.96603400-02 

-3.83286690-02 

-3.69714800-02 

-3.55746730-02 

-3.4146872D-02 

-3*27361270-02 

-3*13833440-02 

-3*00840640-02 

-2*87928880-02 

-2.74615910-02 

-2.60812440-02 
-2.46607550-02 
-2.3239759D-02 
-2.1856195 0-02 
-2,05252180-02 
-1.9217913D-02 
-1.78901230-02 
-1.65634330-02 
-1.52796470-02 
-1.40268200-02 

-1.27626460-02 

-1.14929040-02 

-1.02S94090-02 

-9.06612860-03 

-7.92912290-03 

-6.86602370-03 

-5.85153270-03 

-4.89658900-03 

-4*02065400-03 

-3.20399770-03 

-2.46981630-03 
-1 .84090960-03 
-1*29247310-03 
-8.48933560-04 
-5.24688660-04 
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1*6 

1*7 

1*8 

1*9 


6.10319370  00  *.9*9*1700-01 
6. 16698220  00  *.9*9*2030-01 
6.23076570  00  4.9*9*1910-01 
6.29*6*350  00  *.949*1770-01 


3.9999*080  00 
3.99998*50  00 
3 .9999980D  00 
*.00000000  00 


7.5963*700-0*  1 .3258127D-05  -2.8*229700-0* 

9.49H3970D— 05  1.65778300-06  -1.19883550-0* 

-1.16670880-0*  -2.03629100-06  -1.29919210-05 

0.0  0.0  0.0 
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MACH*  80UNOARY  LAYER  CALCULATIONS.  STAGNATION  PRESSURE*  200. PSI.  STAGNATION  TEMPERATURE*1638.  deg  R.  N 8ASE0  ON  RE. delta 


PARABOLIC  TEMPERATURE  DISTRIBUTION  MOD IF . SPALDING-CHl  REFERENCE  TEMP  VAN  DRIEST  REFERENCE  REYNOLOS  NUMBER 


TW  TE 

TAW 

TP 

RE/IN 

RTHI 

FRO 

KCFI 

KCF 

KCFS 

M 

HI 

FMY 

KTHP 

THETA-1 

DELTA 

OELTA*-l 

1 

866.01343.4 

if.or.4iun. 2 

1349924 

19679 

1.33396 

2.32911 

3.09435 

3.09435 

0.5083 

1.3172 

0,14257 

0.0 

0.010H52 

0.0909 

0.005516 

X*  46.076* 

oso*  0. 

00555* 

THU=0. 

0109284 

« CTH* 

'0 . 0 1 0867 8 * HU* 

0.S0T469.  H= 

0.508254,  CHS  0,S07892*  N*  6,30583 

2 

865.71336.2 

1606.61008.9 

1352630 

19660 

1.32983 

2.32948 

3.08522 

3.08526 

0.5155 

1.3171 

0.14015 

.02158 

0.010853 

0.0910 

0.005595 

> 

1*  46.195* 

DS<J*  0. 

00563* 

THUsO. 

0109299 

• CTH*0. 0108691*  HU= 

0,514745*  H* 

0,515535*  CHs  0.515172*  N*  6.30774 

3 

865.31328.8 

1606.81006.5 

1354981 

19640 

1.32561 

2.32987 

3.07587 

3.07605 

0,5231 

1.3170 

0.13668 

0.05401 

0,01 0858 

0.0912 

0.005679 

Xs  46.317* 

osu*  o. 

00571* 

THU*0. 

0109345 

* CTH= 

'0.0 108735  * Hu* 

0.5E2260.  H* 

0.523055*  CHs  0,522693.  N*  6.30970 

4 

864.71321.1 

1605.01004.0 

1356933 

19621 

1.32129 

2.33025 

3*06627 

3*06668 

0.5308 

1.3169 

0.13330 

-1*08485 

0,010067 

0,0915 

0.005768 

5 

864.11313.0 

1604. 21001. 2 

3358454 

19601 

1.31686 

2.33064 

3.05641 

3.05716 

0.5388 

1,3168 

0.12971 

0.11731 

0.010880 

0.0918 

0.00S862 

6 

863.31304.6 

1603.3 

998.3 

1359497 

19582 

1.31234 

2.33101 

3.04631 

3.04750 

0.5471 

1,3167 

0.12594 

0,15122 

0.010898 

0.0921 

0.005962 

7 

862.41295.9 

1602.4 

995.1 

1360023 

19563 

1.30770 

2.33136 

3.03590 

3.03765 

0.5556 

1,3165 

0.12188 

0,18770 

0.01092? 

0,0925 

0.006069 

8 

861.41286.6 

1601.5 

991.8 

1359983 

19546 

1.30297 

2.33172 

3.02520 

3.02764 

0.5645 

1.3164 

0.11755 

0.22645 

0,010952 

0.0929 

0.006182 

9 

860.21277.3 

1600^5 

988.2 

1359327 

19531 

1.29810 

2.33202 

3.014H 

3.01737 

0.5736 

1.3163 

0.11302 

0.26663 

0.010989 

0.0934 

0.006304 

10 

858.81267,3 

1699.4 

984,4 

1357994 

19519 

1.29309 

2.33226 

3.00261 

3.00683 

0.5831 

1.3162 

0,10805 

0.31100 

0.011035 

0.0940 

0.006435 

Xa  47.307* 

osu*  0* 

00647* 

THU=0. 

0111153 

* CTH*0. 0110514*  Hu* 

0*5823t>0  • H* 

0.583139,  CH*  0,582784.  Ns  6.32598 

1 1 

857.21256.9 

1598.4 

980,3 

1355926 

19511 

1.28795 

2.33241 

2.99066 

2,99597 

0.5930 

1,3160 

0.10277 

0,35807 

0.011091 

0.0967 

0.006577 

12 

855.51246*0 

1597.2 

975.9 

1353056 

19509 

1.28265 

2*33244 

2*97817 

2,98470 

0,6033 

1*3158 

0,09716 

0.40807 

0,011159 

0.0956 

0.006732 

13 

853.51234.7 

1596,1 

971.2 

1349327 

19517 

1.27722 

2.33230 

2.96513 

2.97301 

0.6139 

1,3157 

0,09122 

0.46109 

0.011242 

0.0965 

0.006901 

1* 

851.31222.9 

1694.8 

966.2 

1344694 

19535 

1.27167 

2.33193 

2.95149 

2,96082 

0,6249 

1.3155 

0.08517 

0.5145S 

0.011340 

0.0976 

0.0070R6 

15 

848.91210.7 

1693.6 

961.0 

1339108 

19568 

1.26598 

2.33130 

2.93722 

2.94810 

0.6363 

1.3153 

0,07931 

0.56541 

0,011456 

0.0989 

0,007289 

16 

846.31198.0 

1692.2 

955.4 

133250 2 

19614 

1.26016 

2.3*040 

2.92228 

2.93476 

0.6480 

1,3150 

0.07382 

0.61157 

0.011593 

0.1004 

0.007512 

17 

843.4 1 1Q4.8 

1690.9 

949.5 

1324786 

19672 

1.25417 

2.32924 

2.90663 

2.92075 

0.6602 

1.3147 

0.06863 

0.65396 

0.011750 

0.1020 

0,007758 

18 

840.21171.0 

1689.4 

943.1 

1315877 

19744 

1.24799 

2.32784 

2.89023 

2.90603 

0.6730 

1.3144 

0.06370 

0.69299 

0.011931 

0.1039 

0.008029 

19 

836,71156.5 

1687.9 

936.4 

1305663 

19828 

1.24159 

2.32621 

2.87304 

2.89052 

0,6863 

1.3141 

0,05900 

0,72927 

0.012136 

0.1061 

0.00B329 

20 

832.91141.4 

1586.4 

929.2 

1294046 

19924 

1.23495 

2.32437 

2.85505 

2.874  l 7 

0.7003 

1.3138 

0.05442 

0,76395 

0.012369 

0.1005 

0.008663 

) 

Is  49.607* 

0$U*  0. 

,00872* 

T HU-0 . 

0124676 

* C7H*0. 0123883*  HU* 

0.699364,  H* 

0.70013A*  CH*  0.700009*  N*  6.37371 

21 

828.71125.5 

1584.7 

921.6 

1280919 

20032 

1.22A05 

2.32231 

2.83622 

2.85694 

0.7151 

1.3134 

0,04998 

.79715 

0.01263? 

0.1112 

0.009033 

22 

825.91115.3 

1683.6 

916,6 

1271961 

20104 

1.22362 

2.32093 

2.82410 

2.84577 

0.7246 

1.3132 

0.04726 

0.81738 

0.012«1? 

0.1131 

0.009284 

23 

821.91100.9 

1682.1 

909.4 

1258800 

20208 

1*21745 

2.31896 

2.80715 

2.R3003 

0.7380 

1*3129 

0,04362 

0.84455 

0.013078 

0.1158 

0.009652 

24 

817.21084.9 

1580.5 

901.4 

1243347 

20  328 

1.21060 

2.31670 

2. 78832 

2.81244 

0.7531 

1*3125 

0.03980 

0.87319 

0.013392 

0.1191 

0.010086 

25 

812.21068.0 

1578.7 

892.8 

1226175 

20458 

1.20339 

2.31428 

2. 76849 

2.79376 

0.7692 

1.3121 

0.03600 

0.90202 

0.013747 

0.1227 

0.01 0574 

26 

806,81050.6 

15?6.9 

883.8 

1207626 

20595 

1.19597 

2.31175 

2.74811 

2.77441 

0 . 7859 

1.3117 

0,03230 

0.93056 

0 . 014 1 36 

0.1267 

0.011110 

27 

801.11032*8 

167S.1 

874.4 

1187927 

20736 

1.1884? 

2.30916 

2.72742 

2.75460 

0.0032 

1.311? 

0.02875 

0.95868 

0,014558 

0.1311 

0.011693 

28 

795.31015.0 

1573.2 

865.0 

1167300 

20880 

1.18078 

2.30654 

2.70659 

2.73450 

0,8208 

1.3108 

0,02539 

0.98611 

0.015012 

0,1358 

0.012322 

29 

789.3  997.0 

1671.3 

855.3 

1145891 

21025 

1.17309 

2.30392 

2.68573 

2.71421 

0.8388 

1.3104 

0.02221 

1,01299 

0.015497 

0.1408 

0,012999 

30 

783.2  979.2 

1569.5 

645.6 

1123888 

21171 

1.16538 

2.30131 

2.66491 

2.69382 

0,8571 

1.3099 

0.01922 

1.03912 

0,016012 

0.1461 

0.013724 

53.576* 

DSU-  0, 

•01383. 

THU=0 . 

0161641 

♦ CTH*0. 0160401*  HU*  0.855869*  H* 

O.B57100.  CH*  0*956885*  N=  6.453*6 

31 

776.9  961.4 

1667.6 

«35.8 

1101410 

21316 

1.15765 

2.29873 

2.64420 

2.67341 

0,8756 

1,3095 

0.01644 

1*06450 

0.016557 

0.1518 

0*014498 

32 

770.7  943.8 

1665.8 

826,0 

1078631 

21461 

1.14993 

2.29619 

2.62365 

2.65303 

0.8944 

1.3090 

0.01386 

1.08898 

0.01713? 

0.1570 

0.015323 

33 

764.3  926.6 

1564.0 

816.3 

1055651 

21603 

1.14222 

2.29371 

2.60329 

2.63275 

0.9133 

1.3086 

0.01149 

1.11260 

0.017736 

0.1641 

0.016199 

34 

758.0  909.4 

1562.2 

806.6 

1032618 

21743 

1.13453 

2.29129 

2*58317 

2.61263 

0.9324 

1.3002 

0.00933 

1.13494 

0.018369 

0.1707 

0.017127 

35 

751.7  892.6 

1660.5 

797.1 

1009643 

21880 

1.12689 

2.28894 

2.56332 

2.59272 

0,9516 

1.3077 

0.00736 

1,15630 

0.019029 

0,1777 

0.018108 

36 

745.4  876.2 

1558.8 

787.6 

986827 

22013 

1.11929 

2.28668 

2.54378 

2.57306 

0,9709 

1.3073 

0.00559 

1.17632 

0.019715 

0,1849 

0.019142 

37 

739.3  860.1 

1557.1 

778.3 

964289 

22142 

1.11175 

2.28450 

2.52458 

2.55370 

0,9903 

1.3069 

0.00402 

1.19480 

0.020427 

0.1925 

0.020228 

38 

733.2  844.5 

1555.5 

769.? 

942112 

222 6 7 

1.10429 

2.28241 

2.50575 

2.53470 

1.0097 

1.3065 

0.00261 

1.21204 

0.021161 

0.2003 

0.021366 

39 

727.2  829.3 

1653.9 

760.3 

920368 

22386 

1.09691 

2.28043 

2.4,8732 

2.5160/ 

1.0290 

1 .3061 

0.00137 

1.22795 

0.021916 

0.2084 

0,022554 

40 

721.3  814.5 

1652.4 

751*6 

899125 

22499 

1.08962 

2.27855 

2.46930 

2.49785 

1.0484 

1.3057 

0.00029 

1.24242 

0.022695 

0.2167 

0.023792 

<=  59.364* 

o$u=  o< 

.02404* 

THU=0. 

,0229654 

.*  CTH*0. 0227417*  Hu*  1.046707,  H* 

1.048162*  I 

CH*  1.048468*  1 

^ = 6.54185 

41 

715.6  800.3 

1550.9 

743.2 

878429 

22607 

1.08243 

2.2 7678 

2.45172 

2.48006 

1 .0676 

1.3053- 

-0.00065 

1.25527 

0.023489 

0.2253 

0,025078 

42 

710.7  788.3 

15*9.6 

736.1 

861085 

22695 

1.07633 

2.27535 

2.43694 

2.46511 

1.0841 

1.3050- 

-0.00137 

1.26571 

0.024186 

0,2329 

0.026221 

43 

706.1  776.9 

1648.4 

729.2 

844383 

22777 

1.07039 

2.27402 

2.42266 

2.45066 

1.1004 

1.3047- 

-0,00201 

1.27533 

0.02*885 

0,2405 

0.027383 

44 

701.6  765*9 

1647.3 

722.6 

828292 

22853 

1.06458 

2.27278 

2.40884 

2.43668 

1.1164 

1*3044 

-0.00257 

1.28408 

0.025587 

0.2481 

0.028565 

45 

697.2  755.3 

1646.2 

716.3 

812778 

22934 

1.05890 

2.27163 

2.39646 

2.42313 

1.1321 

1.3041- 

-0.00306 

1.29201 

0.026291 

0.2558 

0.029765 
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46 

693.0 

745.1 

10*6.1 

710.1 

797810 

22991 

1,05335 

2.27056 

2.38248 

2.40999 

1.1477 

1,3039-0.003*9 

1.29915 

0.026998 

0.2636 

0,030995 

47 

688.9 

735.3 

10*4.1 

704.? 

783356 

23052 

1.04791 

2.26957 

2,36987 

2.39721 

1.1630 

1.3036-0.00386 

1.30554 

0.027707 

0.2715 

0.032224 

48 

685.0 

725.8 

10*3.1 

698*4 

769389 

23110 

1.04257 

2.26865 

2.35761 

2.38477 

1,1782 

1,3034-0.00417 

1.31098 

0.028419 

0.2793 

0.033484 

49 

681.1 

716.6 

14*3.3 

692.8 

755892 

23163 

1.03734 

2.26780 

2. *4567 

2.37265 

1 • 1*732 

1.3031-0.00443 

1 .31532 

0.029133 

0,2673 

0.03*763 

50 

677.4 

707.7 

14*1.3 

087.4 

742838 

23213 

1.03220 

2.26701 

2*33403 

2*36083 

1.2081 

1.3029-0.00*65 

1*31911 

0.029851 

0.2953 

0. 036082 

<=  64,921* 

DsU=  0 

♦03651* 

THU=0. 

0302746,  CTHs 

= 0. 0299214,  HU*  1.205995,  H* 

1.208070.  CH*  1.208665.  N*  6.60376 

51 

673.8 

699.1 

14*0 •* 

682.2 

730196 

23260 

1.02715 

2.26627 

2.32268 

2.34927 

1.2228 

1.3026-0.00484 

1.32262 

0.03057? 

0.3034 

0.037383 

52 

670.2 

690.8 

1434.5 

677.0 

71794? 

2.3303 

1.02217 

2.26559 

2.31158 

2.33795 

1.2374 

1.3024-0.00499 

1.32500 

0.031297 

0.3115 

0.038726 

53 

666.8 

682.7 

1438.6 

672.1 

706070 

23344 

1.01728 

2.26494 

2.30073 

2.32687 

1.2518 

1.3022-0.00509 

1.32634 

0.032026 

0.3198 

0.040090 

54 

663.5 

674.8 

1437.8 

667.2 

694556 

23383 

1.01246 

2.26434 

2.29010 

2.31601 

1.2662 

1. 3019-0. 0051B 

1.32755 

0.032759 

0.3281 

0.041478 

55 

660.2 

667.2 

1437.0 

662.5 

683372 

23419 

1.00771 

2.26377 

2.27968 

2.30534 

1,2804 

1 .3017-0,00524 

1.32816 

0.033497 

0.3364 

0.042890 

56 

657.0 

659.8 

1436.3 

657.9 

672514 

23453 

1.00302 

2.26324 

2.26947 

2.29485 

1.2945 

1.3015-0.00526 

1.32754 

0.034240 

0.3449 

0.044325 

57 

653.9 

652.5 

1834.5 

653.5 

661967 

23485 

0.99840 

2.26273 

2.25943 

2.28454 

1.3086 

1.3013-0.00528 

1.32684 

0.034988 

0.3535 

0.045766 

58 

650.9 

645.5 

1434.8 

649.1 

651702 

23516 

0.99383 

2.26225 

2.24957 

2.27437 

1.3226 

1.3011-0,00527 

1.32572 

0.03574? 

0,3621 

0,047?73 

59 

648,0 

638.6 

1434,1 

644,8 

641721 

23546 

0.98932 

2.26178 

2.23987 

2.26435 

1.3365 

1 .3009-0.00524 

1.32351 

0*036503 

0*3709 

0*048706 

60 

645.1 

631.9 

1433.4 

640.7 

832009 

23575 

0.98486 

2.26133 

2,23032 

2.25447 

1.3503 

1.3007-0,00521 

1.32158 

0.037270 

0.3797 

0.050327 

X*  70  .519* 

USU*  0 

,05105* 

THU*0* 

0378746,  CTH= 

=0.0373667.  Hu* 

1.347848,  H» 

1.350328,  CH*  1.351562,  N*  6.65118 

61 

642.3 

625.3 

1433.7 

636.6 

62254? 

23602 

0.98045 

2.26091 

2.22090 

2.24471 

1.3641 

1,3005-0.00516 

1.31874 

0.038044 

0.3887 

0.051896 

6 a 

639.5 

618.9 

1433.0 

632.6 

613335 

23630 

0.97609 

2.26048 

2.21163 

2.23507 

1.3778 

1 .3003-0.00509 

1.31524 

0.038825 

0.3978 

0.053494 

63 

636.8 

612.7 

1431.4 

628.7 

604355 

23657 

0.97178 

2.26007 

2.20248 

2.22553 

1.-I91S 

1.3001-0.00504 

1.31233 

0.039614 

0.4070 

0.055122 

64 

634.2 

606.6 

1430.7 

624.9 

595596 

23683 

0.96751 

2.25966 

2.19344 

2.21610 

1.4051 

1.2999-0.00495 

1.30815 

0.040411 

0.4163 

0.056782 

65 

631.6 

600.6 

1430.1 

o2t.2 

587066 

237-10 

0.96328 

2.26924 

2.18452 

2.20676 

1.4187 

1.2997-0.00487 

1.30408 

0.041217 

0.4257 

0.058472 

66 

629.1 

594.8 

1434.5 

617.5 

578734 

23736 

0.95910 

2.25884 

2.17570 

2.19751 

1.4322 

1.2995-0,00478 

1.29985 

0,042031 

0,4353 

0,060196 

6 7 

626.6 

5«9.1 

1438.9 

614.0 

570618 

23  763 

0.95496 

2.25842 

2.16698 

2.18836 

1.4456 

1.2993-0.00468 

1.29492 

0.042855 

0.4450 

0.061952 

68 

624.2 

583.5 

1428.3 

610.4 

562693 

23791 

0.95086 

2.25800 

2.15836 

2.17927 

1.4591 

1.2992-0.00460 

1.29073 

0.043687 

0.4549 

0.063743 

69 

621.8 

578.0 

1427.8 

607.0 

554955 

23819 

0.94679 

2.257S7 

2.14982 

2.17027 

1.4724 

1*2990-0.00450 

1.28556 

0.044530 

0.4649 

0.065568 

70 

619.5 

572.  7 

1427.2 

603.6 

547413 

23848 

0.94277 

2.25712 

2.14138 

2.16134 

1.4858 

1.2988-0.00441 

1.28082 

0,045383 

0.4750 

0.067429 

X = 76.747* 

DSU=  0 

,06852* 

THU=0. 

0462088 

i*  CTH= 

=0.0465107,  Hu*  1.482872.  H* 

1.485767,  CH«  1,407807*  N*  6.69383 

71 

617.2 

567.5 

1426.7 

600.3 

540039 

2387  7 

0.93879 

2.25667 

2.13301 

2.15247 

1.4991 

1.2986-0.00431 

1.27577 

0.046246 

0.4853 

0.069326 

72 

615.0 

562.3 

1426.1 

597.1 

532858 

23909 

0.93485 

2.25619 

2.12473 

2.14368 

1.5123 

i. 2984-0. 00421 

1.27038 

0.047120 

0.4958 

0. 071259 

73 

612.8 

557.3 

1425.6 

694.0 

525840 

23941 

0.93095 

2.25569 

2.11652 

2.13496 

1.5255 

1.2982-0.00413 

1.26585 

0,048004 

0.5064 

0.073229 

74 

610.7 

552.4 

1424.1 

590.9 

518992 

23975 

0.92708 

2.25517 

2.10839 

2.12631 

1.5386 

1.2980-0.00404 

1.26048 

0.048900 

0.5172 

0.075238 

7S 

608.6 

54  7.6 

1424.6 

587,8 

512313 

240U 

0.92326 

2.2546J 

2.10034 

2.11772 

1,5517 

1.2978-0.00396 

1.25595 

0*049807 

0.5281 

0.077264 

7b 

606.5 

542.9 

142*. 1 

5fl4.8 

505790 

24048 

0,91948 

2.25406 

2.09235 

2. 10920- 

1.5647 

1.2976-0*00367 

1.25072 

0.050725 

0.5392 

0.079369 

77 

604.5 

538.3 

1423.6 

581.9 

499439 

24088 

0.91575 

2.25346 

2.08445 

2.10075 

1.5776 

1 .2975-0,00378 

1.24583 

0.051654 

0.5505 

0.081492 

7« 

602.5 

533.8 

1423.2 

579.1 

49321? 

24129 

0.91205 

2.25284 

2.07661 

2.09237 

1.5905 

1.2973-0.00371 

1.24140 

0.052596 

0.5620 

0.083654 

79 

600.6 

529.4 

1423.7 

576.3 

487191 

24173 

0.90840 

2.25217 

2.06884 

2.08405 

1.6033 

1.2971-0.00363 

1*23653 

0.053540 

0.5736 

0.085854 

80 

598.7 

525.1 

1422.3 

673.5 

481295 

24219 

0,90479 

2.25148 

2.06115 

2.07581 

1.6160 

1,2969-0.00357 

1.23268 

0.054512 

0.5854 

0.080094 

X=  84.020* 

l)SU  = 0 

.08969* 

THU=0. 

0556160 

t CTHs 

=0.054677*.  HU*  1.612690.  H* 

1.616030,  CH*  1.619064*  N=  6.73669 

8 1 

596.9 

520.8 

1421.8 

570.9  • 

475553 

24268 

0.90124 

2.25075 

2.05353 

2.06764 

1.6287 

1 .2967-0.00350 

1.22828 

0,055488 

0.5973 

0.090371 

82 

595.1 

516.7 

1421 .4 

568.2 

469961 

24319 

0.89772 

2.24998 

2.04598 

2.05955 

1.6412 

1 .2965-0,00346 

1*22503 

0,056475 

0.6094 

0*092687 

83 

593.4 

S12.7 

1421.0 

565.7 

464506 

24373 

0.89426 

2.24918 

2.03850 

2.05152 

1.6536 

1.2963-0.00340 

1.22126 

0 • 057*75 

0.6?17 

0.095042 

84 

591.6 

508.8 

1420.6 

563.2 

459209 

24430 

0.89084 

2.24832 

2.03110 

2.04357 

1.6659 

1.2961-0.00336 

1.21826 

0.058405 

0.6342 

0.097433 

85 

590.0 

504.9 

1420.2 

560.7 

454038 

24490 

0.88747 

2.24744 

2.02376 

2.03571 

1.6702 

1.2959-0.00332 

1.21551 

0.059506 

0.6469 

0.099862 

86 

588.3 

501.2 

1419.8 

558.4 

449025 

24553 

0.88417 

2.24651 

2.01652 

2.02793 

1.6903 

1 .2957-0.00328 

1.21279 

0.060538 

0.6597 

0.102325 

87 

S86.7 

497.5 

1419.4 

556.0 

444136 

24618 

0.88090 

2,24554 

2*00934 

2.02024 

1 . 7022 

1.2955-0.00327 

1.21128 

0.061581 

0.6726 

0.104825 

88 

585.2 

494.0 

1419.0 

553.8 

439389 

24687 

0.87769 

2.24453 

2.00225 

2.01263 

1.7141 

1.2953-0.00324 

1.20941 

0,062634 

0.6857 

0.107359 

89 

583.7 

490.5 

1418.7 

551.5 

434772 

24  759 

0.87454 

2.24348 

1.99523 

2.00512 

1.7258 

1.2951-0.00324 

1.20910 

0.063697 

0.6990 

0.109927 

90 

581.7 

485.9 

1418.2 

548.6 

428644 

24862 

0.87029 

2.24198 

1.98574 

1.99497 

1,7416 

1.2948-0.00323 

1.20786 

0.065171 

0.7175 

0.113504 

Xa  92.781* 

DSU=  0 

,11582* 

TMU*0. 

0666406.  CTMsO. 0653847,  HU*  1.737778.  H= 

1.741832,  CH*  1.7458,7.  N*  6.78392 

91 

579.7 

481,4 

1417.7 

545.7 

422769 

24971 

0.86616 

2.24039 

1.97641 

1.98501 

1.7572 

1.29*5-0.00322 

1.20701 

0.066661 

0.7362 

0.117135 

92 

877.8 

477.1 

1417.3 

543.0 

417115 

25085 

0.86213 

2.23874 

1*96723 

1.97522 

1.772* 

1.29*3-0.00324 

1.20823 

0.068169 

0.7552 

0.120825 

93 

576.0 

473.0 

1514.8 

540.3 

411676 

25205 

0.85819 

2.23703 

1.95820 

1.96561 

1.7875 

1.2940-0,00325 

1.20918 

0*069693 

0.7745 

0.124574 

94 

574.3 

469.0 

1416.4 

537.8 

406449 

25331 

0.85436 

2.23524 

1.94932 

1.95617 

1.8022 

1.2937-0.00325 

1.20934 

0*071234 

0.7940 

0.128377 

95 

572.6 

465.1 

1416,0 

535.3 

401431 

25462 

0.8506? 

2.23338 

1.94060 

1.94692 

1.8166 

1.2934-0.00326 

1 .21048 

0.072791 

0.8138 

0.132232 

96 

571.0 

461.4 

1415.6 

532.9 

396599 

25599 

0.84698 

2.23146 

1.93201 

1.93784 

1 .8308 

1.2931-0.00328 

1.21284 

0.074363 

0.8338 

0.136143 

97 

869.4 

457.8 

1415.3 

530.6 

391948 

25740 

0.84343 

2.22948 

1.92357 

1 .92892 

1.8*47 

1 .2928-0.00328 

1.21333 

0.075953 

0.8541 

0.140108 

98 

567.9 

454.3 

1414.9 

528.3 

387490 

25889 

0.83998 

2.22742 

1.91528 

1.92018 

1.8582 

1.2925-0.00328 

1.21414 

0.077556 

0.8747 

0.144H8 

99 

866.4 

450. 9 

1414.4 

526.2 

383196 

26042 

0.83662 

2.22531 

1.90712 

1.91161 

1.8716 

1.2923-0.00330 

1.21708 

0,079175 

0.8955 

0.148180 

100 

565.0 

447.7 

1414.3 

524.1 

379059 

26200 

0.83334 

2.22315 

1.89910 

1.90319 

1.8846 

1.2920-0.00329 

1.21745 

0.080810 

0.9166 

0.152294 

*=105.689. 

OSU=  0 

.15593* 

THU=0. 

0829414 

* CTH*0, 0811067,  HU=  1.879957*  H* 

1.88*602.  CH*  1.890793.  N*  6.85020 
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101 

663*7 

444.6 

1S13.9 

622.1 

375099 

26365 

0.83017 

2,22091 

1.89123 

1.89495 

1.8973 

1.2917-0.00328 

1.21009 

0.082458 

0.9379 

0.156447 

102 

662*4 

441.6 

1S13.6 

620,2 

371282 

26535 

0.82707 

2.21862 

1.88348 

1.88686 

1 .9090 

1.2914-0.00330 

1.22079 

0.084120 

0.9594 

0.160649 

103 

661,1 

438*7 

1S13.3 

316.3 

367609 

26710 

0*82407 

2.21628 

1 .87587 

1.07892 

1.9219 

1.2911-0.00328 

1.22064 

0,085797 

0.9012 

0.164896 

104 

559*9 

436.9 

1S13.0 

616.5 

364094 

26892 

0*82116 

2.21388 

1.06840 

1.87115 

1.9336 

1.2908-0.00326 

1.22077 

0.087485 

1.0032 

0.169176 

105 

558.7 

433.2 

1S12.7 

614.7 

360710 

2 7078 

0.81833 

2.21143 

1.86106 

1.86353 

1 .9453 

1.2905-0.00326 

1.22282 

0.089186 

1.0254 

0.173498 

106 

557,6 

430.6 

1S12.* 

613*1 

357455 

27270 

0.816S8 

2.20893 

1.85384 

i. 05606 

1.9566 

1. 2902-0. 00323 

1.22155 

0.090901 

1*0478 

0.177859 

10? 

556*5 

428.1 

1M2.2 

311.6 

354349 

27469 

0.81293 

2.20637 

1.84678 

1.84076 

1.9676 

1.2099-0.00319 

1.22003 

0.092624 

1.0704 

0.182242 

108 

555*5 

425.7 

ISlt .9 

609.9 

351364 

27672 

0*81037 

2.20377 

1.83984 

1.04161 

1.9782 

1*2896-0.00318 

1.22095 

0.094356 

1.0932 

0.186656 

109 

554.5 

423*4 

1SU.7 

508.4 

348496 

27881 

0*80788 

2.20113 

1.83303 

1.83460 

1.9806 

1.2893-0.00315 

1.21958 

0.096101 

1.1162 

0.191103 

no 

553*5 

421.2 

1S11.5 

607,0 

345759 

28096 

0.80548 

2.19843 

1.82636 

1.02774 

1.9986 

1.2891-0.00309 

1.21643 

0.097852 

1.1393 

0.195565 

X 

=119.656, 

DSU*  0. 

20106, 

TMU*0. 

1008818 

i«  CTH= 

:0.0982603,  HU* 

1 .993003,  H* 

1.998580,  CH=  2,007013,  N«  6,91913 

111 

552*6 

419.1 

1SU.2 

605.6 

343144 

28317 

0.80317 

2.19569 

1.01983 

1.02105 

2.0083 

1,2888-0.00305 

1.21452 

0.099609 

1 .1626 

0.200041 

112 

551*7 

417.0 

1S11.0 

304.3 

340639 

20543 

0.80095 

2.19291 

1.81343 

1.81449 

2.0176 

1.2885-0.00302 

1.21311 

0.101374 

1.1860 

0.204537 

113 

550*8 

415.1 

1S10.8 

303.0 

338242 

20774 

0.79880 

2.19009 

1.80715 

1 .80808 

2.0267 

1.2882-0.00297 

1.21005 

0.103146 

1.2096 

0. 209048 

114 

550*0 

413.2 

1HI0.6 

301.8 

335959 

29011 

0*79674 

2.18723 

1*80101 

1 .80182 

2.0355 

1.2879-0.00290 

1.20495 

0.104920 

1.2332 

0.213561 

us 

549*3 

411.4 

islo.* 

500.7 

333792 

29255 

0.79477 

2.18433 

1.79502 

1.79571 

2.0430 

1.2876-0.00283 

1.20003 

0.106696 

1.2569 

0.218071 

116 

548. S 

409*8 

1S10.3 

499.6 

331726 

29503 

0*79288 

2.18140 

1.78916 

1.78975 

2.0519 

1.2873-0.00277 

1.19577 

0.108474 

1.2807 

0.222579 

117 

547.8 

408*1 

tsio.i 

490.S 

329761 

2975  7 

0*79107 

2.1 7844 

1.78342 

1.78393 

2,0596 

1.2870-0.00271 

1.19068 

0.110254 

1.3045 

0.227084 

118 

547.2 

406.6 

1SG9.9 

497.6 

327896 

30016 

0.70934 

2.17544 

1.77783 

1.77826 

2.0671 

1.2867-0.00264 

1.18475 

0.112033 

1*3284 

0.231578 

119 

546.5 

405*2 

1H09.8 

496.6 

326128 

30281 

0*78769 

2.17242 

1.77236 

1.77272 

2.0741 

1.2865-0.00256 

1.17779 

0.113810 

1.3522 

0.236057 

120 

546.0 

4Q3.8 

1S09.6 

*95.  7 

324458 

30651 

0.70612 

2.16937 

1.76703 

1.76734 

2.0809 

1.2862-0.00247 

1.16921 

0.115583 

1.3761 

0.240512 

X*13*.*S3» 

OSU*  0. 

,24845* 

THU-0* 

1197765.  CTHiO. 1161323.  HU> 

' 2.07*2*0,  H1 

■ 2.080862,  CH=  2,091713,  N=>  6.98852 

121 

545.4 

402.5 

1509.5 

494.9 

322890 

30826 

0.78465 

2.16629 

1.76185 

1,76210 

2.0872 

1.2859-0.00238 

1.16026 

0.117349 

1.3999 

0.244935 

122 

544.9 

401.3 

1509.* 

494.1 

321412 

31107 

0.78325 

2. 16319 

1.75680 

1.7S701 

2.0933 

1*2856-0.00229 

1.15149 

0.119109 

1.4236 

0.249326 

123 

544.4 

400.1 

1509.3 

493.3 

320026 

31392 

0.78193 

2.16007 

1.75189 

1 .75206 

2.0989 

1.2853-0.00220 

1.14185 

0.120861 

1.4473 

0.253681 

124 

543.9 

399.0 

1509.1 

492.6 

318728 

31683 

0.78069 

2.15694 

1.747U 

1.7*725 

2.1043 

1.2851-0.00210 

1.13137 

0.122603 

1.4709 

0.257994 

125 

543.5 

398.0 

1509.0 

492.0 

317517 

31978 

0.77952 

2.15379 

1.74247 

1.7*256 

2.1093 

1.2848-0.00200 

1.12012 

0.124334 

1.4943 

0.262260 

126 

543.1 

397.1 

1508.9 

491.4 

316392 

32277 

0.77844 

2.15062 

1.73796 

1.7380S 

2.1140 

1.2845-0.00190 

1.10815 

0.126053 

1.5176 

0.266475 

127 

542*7 

396.2 

1508.9 

490.8 

315350 

32582 

0.77743 

2.14745 

1.73360 

1.73366 

2.1183 

1.2843-0.00179 

1.09550 

0.127757 

1.5408 

0.270631 

128 

542.3 

395.4 

1508. 8 

490.3 

314390 

32890 

0.77650 

2.14427 

1.72936 

1.729*1 

2.1223 

1.2840-0.00168 

1.08219 

0.129446 

1.5637 

0.274726 

129 

542.0 

394.7 

1508.7 

499*8 

313509 

33203 

0.77564 

2.14108 

1.72526 

1,72530 

2.1260 

1.2837-0.00157 

1.06830 

0.13111? 

1.5864 

0,278755 

130 

541.7 

394.0 

1508. & 

489.4 

312705 

33520 

0.77486 

2.13709 

1.72129 

1.72132 

2,1294 

1.2835-0.00146 

1,05392 

0.132770 

1,6069 

0.282715 

X=149.842. 

OSU*  0, 

.29351, 

THU=0* 

1363385.  CTH*0. 133*834.  Hu*  2.121666.  H*  2.129352.  CH*  2.1*2*98.  N*  7.0SS35 

131 

541.5 

393.4 

1508.6 

489.0 

311977 

33840 

0.77415 

2.13470 

1.71746 

1.71748 

2.1324 

1.2832-0.00134 

1.03838 

0.134404 

1.6311 

0.286600 

132 

541.2 

392*9 

1508.5 

488*6 

311324 

34164 

0.77351 

2.13152 

1.71376 

1.71377 

2.1351 

1.2830-0.00121 

1.02213 

0. 136015 

1.6530 

0.290404 

133 

541.0 

392.4 

1508.5 

488*3 

310743 

34492 

0.77294 

2.12834 

1.71019 

1.71020 

2.1375 

1.2827-0.00110 

1.00629 

0.137604 

1.67*7 

0.294125 

134 

540.8 

391.9 

1508.4 

408.0 

310229 

34822 

0.77243 

2.12517 

1.70674 

1.70675 

2.1396 

1.2825-0.00099 

0.99059 

0.139170 

1.6960 

0.297766 

135 

540.7 

391*6 

1508.* 

487.8 

309778 

35155 

0.77199 

2.12201 

1.70342 

1.70342 

2.1414 

1.2822-0.00088 

0.97488 

0.140714 

1.7J70 

0.301325 

136 

540.5 

391*2 

1508.3 

487.6 

309386 

35490 

0.77160 

2.11886 

1.70021 

1.70022 

2.1430 

1.2820-0.00077 

0.95899 

0.142234 

1.7378 

0.304804 

137 

540.4 

390.9 

1508.3 

487.4 

309053 

35828 

0.77127 

2.11573 

1.69712 

1.69712 

2.1443 

1,2817-0.00065 

0.94240 

0.143731 

1.7581 

0.308198 

136 

540*3 

390.7 

1508.3 

487.2 

308778 

36168 

0.77100 

2.11262 

1.69415 

1.69415 

2.1453 

1.2815-0.00055 

0.92663 

0.145203 

1 ,7782 

0.311506 

139 

540.2 

390.5 

1508.3 

487.1 

308550 

36509 

0.77077 

2.10953 

1.69127 

1.69127 

2.1461 

1.2813-0.00046 

0.91257 

0.146653 

1.7979 

0.314737 

140 

540.2 

390*4 

1508.2 

487.0 

308365 

36852 

0.77059 

2.10646 

1.68849 

1.68849 

2.1468 

1.2810-0.00037 

0.89858 

0.148081 

1.817* 

0.317897 

<=165*549, 

DSU*  0. 

.33159, 

THU=0. 

155085T.  CTH*0. 1*89637.  HU*  2.138136.  H*  2,1*6777,  CM*  2.1617*6,  N*  7,11626 

14 1 

540.1 

390.2 

1508.2 

486.9 

308223 

37196 

0.77045 

2.10342 

1 .68581 

1.60581 

Z.1»T2 

1.2808-0.00028 

^.88515 

0.149408 

1.8366 

0.320985 

142 

540*1 

390.2 

1508.2 

486.9 

308117 

37541 

0.77034 

2.10040 

1.68321 

1 .68321 

2.1*75 

1.2806-0.00021 

0.87366 

0.150876 

1.8555 

0.324007 

143 

S40.0 

390.1 

1508.2 

486*8 

308039 

37886 

0.77026 

2.09742 

1.68068 

1 .68068 

2.1*77 

1.2804-0.00015 

0.86345 

0.152247 

1.87*2 

0.326975 

144 

540,0 

390.1 

1508.2 

486*8 

307987 

38233 

0.77021 

2.09446 

1.67822 

1.67822 

2.1*77 

1.2802-0.00010 

0.85434 

0.153603 

1.8926 

0.329894 

145 

540.0 

390.0 

1508.2 

486.8 

307956 

38579 

0.77018 

2.09153 

1.67582 

1.67582 

2.1*77 

1.2800-0.00006 

0.84721 

0.154946 

1.9110 

0.332770 

146 

540.0 

390.0 

1508.2 

486.8 

30793? 

38925 

0.77016 

2.08864 

1.67347 

1.67347 

2.1*75 

1,2797-0.00003 

0.84168 

0.156279 

1.9291 

0.335617 

147 

540.0 

390.0 

1508.2 

486*8 

307930 

39272 

0.77016 

2.08578 

1.67116 

1.67116 

2.1*7* 

1.2795-0.00001 

0.83757 

0.157604 

1.9*73 

0.338439 

148 

540.0 

390,0 

1508.2 

486.8 

307927 

39618 

0.77015 

2.08295 

1.66889 

1,66889 

2.1*72 

1.2793-0.00000 

0.83502 

0.158924 

1.9653 

0.341246 

149 

540*0 

390.0 

1508.2 

486*8 

307927 

39965 

0.77015 

2.08015 

1.66664 

1.66664 

2.1*79 

1,2791  0.0 

0.83332 

0.160241 

1.9833 

0.344044 

X = 179* 

757, 

DELTA**  0.3480741,  THETA*0 

.1612733 

. H« 

2.163248 

, N»  7. 

1651556 

, DELTA*  1.9833418, 

RE/FT  = 

3695124. 

RE.THETA*  *9660. , LOG*  *.69601.  RE. DELTA*  610725..  LOG*  5.78585 
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M * C H 4 BOUNOARY  LAYER  CALCULATIONS.  STAGNATION  PRESSURE*  EOO.PSI,  STAGNATION  TEMPERATURE3 1636.  OEG  R,  N BASED  ON  RE. DELTA 
PARABOLIC  TEMPERATURE  DISTRIBUTION  MODIF.  SPALDING-CHl  REFERENCE  TEMP  VAN  DRIEST  REFERENCE  REYNOLDS  NUMBER 

KCFI 


TW 


TE 


TAw 


TP 


RE/IN  RTHI 


FRD 


KCF 


KCFS 


HI 


FMY 


KTHP  THETA-1  DELTA  DELTA4-1 


1 666.01343.4 
X*  46.0T6. 

2 665.71336.2 
X*  46.19S. 

3 865.31328.8 
X*  46.317. 

4 864.61321.1 

5 864.11313.0 

6 863,41304.6 

7 862.51295.9 

8 861.41286.8 

9 860.21277.3 

10  858.81267.3 
X*  47.307. 

11  857.31256.9 

12  8S5. 51246.0 

13  653.61234.7 

14  851.41222.9 

15  849.01210.7 

16  846.31198.0 

17  843,41184.8 

18  840.21171.0 

19  836.71156.5 

20  832.91141.4 
X*  49.607, 

21  828.71125.5 

22  825.91115.3 

23  821.91100.9 

24  617.31084.9 

25  812.21068.0 

26  806.81050.6 

27  801.21032.8 

28  795.31015.0 

29  789.3  997.0 

30  783.2  979.2 
X*  53.576. 

31  777.0  961.4 

32  770.7  943.8 

33  764.4  926.5 

34  758.0  909.4 

35  751.7  892.6 

36  745.5  876.2 

37  739.3  860.1 

38  733.2  844,5 

39  727.2  829.3 

40  721 .3  814.5 
X»  59.364. 

41  715.6  800,3 

42  710.8  788.3 

43  706.1  776.9 

44  701.6  765.9 

45  697.2  755,3 


1607.41011.2 
Q$U*  0.00554. 

1606.61009.0 
D$U=  0.00562, 
1605.81006,6 
DSU*  0.00571. 

1605.01004.0 

1604.21001.2 

1603.3  998.3 

1602.4  995.2 

1601.5  991,8 
1600-5  988.2 

1599.4  984,4 
DSU*  0.00647, 

1598.4  980.3 

1597.2  975.9 

1596.1  971.2 

1594.8  966,3 

1593.6  961.0 

1592.2  955.4 

1590.9  949.5 

1589.4  943.2 

1687.9  936.4 

1586.4  929.3 
DSU*  0.00871, 

1584.7  921,6 

1583.6  916.6 

1582.1  909.5 

1580.5  901.4 

1578.7  892.8 

1576.9  883,8 

1575.1  874.5 

1573.2  865.0 

1571.3  855.3 

1569.5  845.6 
DSU*  0.01382. 

1567.6  83S.8 

1565.8  826.1 

1564.0  816.3 
15*2.2 

1560.5  

1558.8  787.6 

1557.1  778.3 

1555. 5 769.2 

1553.9  760,3 

1552.4  751.6 
DSU»  0.02399< 

1550.9  743.2 

1549.6  736.1 

1548.4  729,2 
15*7.3  722,7 
15*6.2  716.3 


806.6 

797.1 


3*09486  0.5083  1.3172  0.14276  0.0  0.010840  0.0908  0.005510 

, CTH.0.01Q8554,  Hu*  0.507560,  H*  0,508344.  CH*  0.507981,  N=  6.30523 

13ruM3n  ?*3?9'33  3.08573  3.08579  0.5156  1.3171  0.14033  1.02154  0.010841  0.0909  0.005590 

, HU*  0.514836,  H=  0.515625,  CM*  0.515263.  N=  6.3071* 
13tmm8J  ?*3?^3  3,07638  3.07658  0.5231  1.3170  0.13687  0.0S391  0.010845  0.0911  0.005674 

THU=0. 0109220,  CTHsO. 0108611 , HU*  0.522351.  H*  0.523146,  CH*  0.52278*.  N=  6,30910 

0.5309  1.3169  0.133*9  >,08469  0,01085*  0.0914  0.005762 

0.5389  1.3168  0.12991  0.11708  0.010H67  0.0917  0.005857 

0.5472  1.3167  0.12614  0,15092  0,010886  0.0920  0.005956 

0.5557  1.3166  0.12203  0.18732  0.010909  0.0924  0.006063 

0.5645  1.3165  0.11775  0.22601  0.010939  0.0928  0.006176 

0.5737  1.3163  0.11323  0.26611  0.010977'  0 , 0933  - 0.006298' 

0.5832  1.3162  0.10826  0.31039  0.011023  0.0939  0.006429 

HU*  0.582394,  H*  0,583232,  CH=  0.582877.  N*  6.32537 

0.5931  1.3160  0.10299  0.35738  0.011079  0.0946  0.006571 

0.6034  1.3159  0.09738  0.40729  0.011147  0.0954  0.006725 

0.6140  1.3157  0.09143  0.46022  0.011228  0.0964  0.006894 

0.6250  1.3155  0.08539  0.51360  0.011327  0.0975  0.007079 

0.6363  1,3153  0.07953  0.56438  0.011443  0.0988  0.007282 

0.6481  1.3150  0.07404  0.61046  0.011579  0.1002  0.007504 

0.6603  1.3148  0.06885  0.65277  0.011736  0.1019  0.007750 

0.6731  1.3145  0.06392  0.69172  0.011916  0.1038  0.008021 

0.6864  1.3142  0.05922  0.72791  0.012121  0.1059  0.006320 

0.7004  1.3138  0.05464  0.76251  0.012354  0.10«*  0.008653 

HU*  0.699462,  H*  0.700430,  CH*  0.700107,  N*  6.37305 


1356933 

1358454 

1359497 

1360023 

1359983 

1359327 

13S7994 


19598  1.32124  2.33070  3.06678  3,06723 
1 9578  1.31682  2.33109  3.05692  3.05771 
19559  1.31230  2.33147  3,04682  3.04808 
19540  1,30766  2.33184  3.03640  3.03824 
19523  1.30293  2.33217  3.02570  3.02825 
19508  1.29806  2.33248  3.01461  3.01799 
19495  1 .29305  2.33272  3.00311  3.00747 


THU*0. 011  1024.  CTH*0. 01 10386, 


135592ft 

19487 

1*28791 

2.33288 

2.99116 

2,99663 

1353056 

19486 

1.28261 

2.33291 

2.97867 

2.98539 

1349327 

19493 

1.27718 

2.33277 

2.96563 

2.97372 

1344694 

19512 

1.27163 

2.33240 

2.95200 

2.96156 

133910ft 

19544 

1.26594 

2.33177 

2.93773 

2.94885 

1332502 

19589 

1.26012 

2.33087 

2.92279 

2.93554 

1324786 

19648 

1.25413 

2.32972 

2.90714 

2.92156 

1315877 

19720 

1.24795 

2.32832 

2,89074 

2.90686 

1305663 

19803 

1.24155 

2.32670 

2.87356 

2.89138 

1294046 

19899 

1.23491 

2.32485 

2.85557 

2.87506 

THU*0. 0124522,  CTH*0. 0123730. 


1280919  20006  1.22801  2.32280  2.83675  2.85786 
1271961  20078  1.22359  2.32143  2,82463  2.84670 
1258800  20182  1.217*1  2.319*6  2.80768  2.83099 
12*3347  20301  1.21057  2.31721  2.78886  2.81342 
1226175  20*30  1.20336  2.31479  2.76903  2.79478 
1207626  20566  1.19594  2.31227  2.74866  2.775*5 
1187927  20707  1,18838  2.30969  2.72798  2,75568 
1167300  20850  1.18075  2.30708  2.70716  2.73S61 
11*5891  20994  1.17306  2.30447  2.68630  2.71536 
1123888  21139  1.16535  2,30187  2.66550  2.69500 


0.7152  1.3135  0.05020  0.79561  0.012617 

0.7247  1.3132  0.04748  0.81578  0.012796 

0.7381  1.3129  0.0438*  0.84285 

0.7532  1.3125  0.0*002  0.87139 

0.7693  1.3121  0.03622  0.90010 


0.1111  0.009023 
0.1129  0.009274 
0.013061  0.1157  0.009641 
0.013375  0.1189  0.010074 
0.013729  0.1226  0.010561 


THU*0 .0161*03.  CTH*o. 0160167,  Hu*  0.855971 


0.7860  1.3117  0.03253  0.92851  0.01*117  0.1266  0.011096 
0.8033  1,3113  0.02898  0.956*8  0.01*538  0.1309  0.011678 
0.8209  1,3108  0.02562  0.98376  0.014991  0,1356  0.012307 
0,8389  1.3104  0.022*4  1.01047  0.015*75  0.1*06  0.012982- 
0.8572  1.3099  0.01946  1.036*2  0.015989  0.1*59  0.013706 


1101410 

1078631 

1055651 

1032618 

1009643 

986827 

964289 

9*2112 

920368 

899125 

THU*0, 

878*29 

861085 

8**383 

828292 

812778 


2.63*04 

2.61395 


21283  1.15762  2.29931  2.64480  2.67462 
21*27  1.14990  2.29679  2.62426  2.65428 
21568  1.1*219  2.29432  2.60392 
21707  1.13*50  2.29192  2.58382 
218*2  1.12686  2.28959  2.56399  2.59407 
2197*  1.11926  2.28735  2.54447  2.57*45 
22101  1.11172  2.28519  2.52529 
22224  1.10*26  2.28313  2.50648 
223*1  1.09688  2.28117  2.48807 
22453  1.08959  2.27931  2.47008 


H*  0.857200,  CH*  0.856985.  N*  6.45267 


0.8757  1.3095  0.01668  1.06161  0,016532  0.1515  0.01447B: 


0.89*5 

0.9134 


1.3091  0.01410  1.08590  0.017106  0.1575  0.015301 
1.3086  0.01173  1.10930  0.017708  0,1638  0.016175 


0229189. 


CTH*0. 0226962. 


MU" 


2.55513 
2.53616 
2.51757 
2.49938 
1.046817, 


0.9325  1.3082  0.00957  1.13143  0.018339  0.170*  0.017101 
0.9517  1.3078  0.00761  1,15256  0.018997  0.1774  0.018079 
0.9710  1.3074  0.00584  1.17236  0.019681  0.1846  0.019110 


22559  1.08241  2.27757  2.45252  2.4816* 
226*5  1.07631  2,27616  2.43776  2.46672 
22726  1.07036  2.27485  2.423S0  2.45230 
22801  1.06456  2.27363  2.40970  2.43835 
22870  1.05888  2.27250  2.39634  2.42*84 


0.9904  1.3070  0.00*26  1.19060  0.020390  0.1921  0.020194 

1.0098  1.3066  0.00286  1.20760  0.021122  0.1999  0.021328 

1.0291  1,3062  0.00162  1.22328  0.021876  0,2080  0.022513 

1.0485  1.3058  0.00054  1.23751  0.022649  0.2163  0.023747 

H*  1.0*8*68,  CH*  1.0*857*.  N*  6.5*074 


1.0677  1.3054-0.000*0  1.25011  0.023441  0.22*8  0.025028 
1.08*2  1.3051-0.00112  1.26035  0.024135  0.2323  0.026168 
1.1005  1.3048-0.00176  1.26977  0.024831  0.2399  0.027326 
1.1165  1.3045-0.00232  1.27831  0.025530  0.2475  0.028503 
1.1322  1.3042-0.00281  1.28605  0.026231  0.2552  0.029699 
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132 


46 

693*0 

745.1 

1545.1  710,1 

797810 

22935 

1.05333 

2.27146 

2.38338 

2.411/2 

1.1478 

1,3039-0.0032* 

1.29300 

0.026934 

0.2630 

0.030915 

47 

688.9 

735.3 

15*4.1  704.2 

783356 

22995 

1.04789 

2.27049 

2.37079 

2.398 91 

1.1632 

1.3037-0.00361 

1.29919 

0.027640 

0.2707 

0.032149 

46 

685.0 

725.8 

1843.1  898.4 

769389 

23051 

1,04255 

2.26960 

2.35054 

2.38686 

1.1 783 

1.3034-0.00392 

1.30*45 

0.028348 

0.2786 

0,033403 

49 

681.1 

716.6 

1542,2  692.0 

755892 

23103 

1.03732 

2.26877 

2.34663 

2.37447 

1.1933 

1.3032-0.00418 

1.30861 

0.029059 

0.2865 

0,034677 

50 

677.4 

707.7 

15*1.3  087.4 

742838 

23151 

1.03218 

2.26000 

2.33501 

2.36268 

1.2082 

1-3029-0,00440 

1.31223 

0.029773 

0.2945 

0.035971 

X 

i*  64.921* 

DsU*  0.U3642* 

THU-0 . 

0301939 

■«  CTH*0. 1)298*38,  HU* 

1.206115*  H* 

1.20818*,  CH-  1.208778,  N*  6.60228 

SI 

673.8 

699.1 

1 54 0.4  682.2 

730196 

23196 

1.02713 

2.26728 

2.32368 

2*35114 

1.2229 

1.3027-0,00*59 

1.31557 

0.030490 

0.3025 

0.037286 

52 

670.3 

690.8 

1839.5  677.1 

717942 

23238 

1.02216 

2.26662 

2,31260 

2.33905 

1.2375 

1,3025-0.00*7* 

1 .31780 

0.031211 

0.3106 

0.038623 

53 

666.8 

682.7 

1*38.5  672.1 

f 06070 

23277 

1.01726 

2.26600 

2.30176 

2.32800 

1.2519 

1.3022-0.00*84 

1.31899 

0.031936 

0.3188 

0.039982 

54 

663.5 

674.8 

1837 .8  667.3 

694556 

23314 

1 .01244 

2.26542 

2.29116 

2.31796 

1.2663 

1,3020-0.00*93 

1*32005 

0,032665 

0.3270 

0.041363 

55 

660.2 

667,2 

1837,0  662.5 

68337? 

23348 

1.00769 

2.26488 

2.28076 

2.30731 

1.2005 

1.3018-0.00500 

1.32053 

0.033399 

0.3364 

0*042768 

56 

657.1 

659.8 

1536.3  658.0 

672514 

23381 

1.00301 

2.26437 

2.27056 

2.29685 

1.2947 

1.3016-0.00502 

1.31978 

0.034137 

0.3438 

0.044196 

57 

654.0 

652.5 

1535.8  653.5 

661967 

23412 

0.99838 

2,26388 

2.26055 

2.28655 

1.3087 

1.301*-0.0050* 

1.31895 

0.034081 

0.3523 

0.045650 

58 

650.9 

645.5 

1534.8  649.1 

651702 

23*41 

0.99381 

2.26342 

2,25070 

2.27641 

1.3227 

1.30 12-0.0050* 

1*31771 

0.035631 

0.3609 

0.047129 

59 

648,0 

638.6 

1534.1  644.8 

641721 

23469 

0.98930 

2.26298 

2.24102 

2.26640 

1.3366 

1.3010-0,00501 

1.31540 

0.036387 

0.3696 

0,048635 

60 

645.1 

631,9 

1533.4  640.7 

632009 

23496 

0.98485 

2.26255 

2.23149 

2.25654 

1.3505 

1.3008-0.00*98 

1.31336 

0.037149 

0.3784 

0.050168 

X*  70,519* 

OSU=  0.05089* 

THU*0* 

037  749*5 

>«  CTH*0. 0372452*  Hu= 

1.3*7979*  H* 

1.3S0451,  CH*  1.351681*  N*  6,64934 

61 

642.3 

625,3 

1832.7  636.6 

62254? 

23522 

0*9804  1 

2*26215 

2.22209 

2.24679 

1*364? 

1.3006-0,00493 

1 .31042 

0,037918 

0,3873 

0.051730 

62 

639.5 

618.9 

1S32.0  632.6 

613335 

23548 

0.97608 

2.26174 

2.21284 

2.2371 7 

1.3779 

1.3004-0,00*86 

1.30683 

0.038694 

0 . 3963 

0.053319 

63 

636.8 

612.7 

1831.4  628.7 

604355 

23574 

0.97176 

2.26135 

2.20371 

2.22765 

1.3916 

1.3002-0,00*81 

1.30382 

0.039478 

0.4055 

0.054938 

64 

634.2 

606.6 

1530.7  624.9 

595596 

23598 

0.96749 

2.26097 

2.19469 

2.21822 

1.4052 

1.3000-0.00*73 

1 .29956 

0.040270 

0.4147 

0.056589 

65 

631*6 

600.6 

1530.1  621.2 

587066 

23624 

0,96327 

2.26058 

2.18570 

2.20890 

1.4188 

1.2998-0,00*65 

1.29540 

0.041071 

0.4?4I 

0.050270 

66 

629.1 

594,8 

1529.5  617.5 

578734 

23648 

0*95908 

2.26019 

2*17698 

2.19966 

1.4323 

1.2996-0.00457 

1.29108 

0.041880 

0.4336 

0.059984 

67 

626.6 

589.1 

1828.9  614,0 

570618 

23674 

0*95495 

2*25980 

2.16828 

2.19052 

1-4458 

1.2994-0.00447 

1.28608 

0.042697 

0.«*433 

0.061730 

68 

624,2 

583.5 

1528.3  610,5 

562693 

23700 

0.95084 

2.25940 

2.15967 

2.18144 

1.4592 

1,2993-0.00439 

1.28181 

0,043524 

0.4531 

0.063510 

69 

621,8 

578.0 

1527.8  607,0 

554955 

23726 

0.94678 

2.25899 

2*15115 

2.17244 

1.4726 

1.2991-0.00429 

1.27656 

0,044361 

0.4630 

0.065326 

70 

619.5 

572.7 

1527.2  603.7 

547413 

23754 

0.94276 

2.25857 

2.14272 

2.16352 

1.4859 

1.2989-0.00420 

1.27174 

0,045208 

0.4731 

0.067175 

X*  76.747* 

OSU*  0.06826. 

THU*0. 

0460270 

1.  CTH*0. 0*53348.  HU*  1.483015.  M*  1. 488898,  CH*  1,487931.  N*  6.69161; 

71 

617.2 

567.5 

1526.7  600.4 

540039 

23782 

0.93878 

2.25814 

2.13437 

2,15467 

1.4992 

1.2987-0.00411 

1.26662 

0,046065 

0.4833 

0.069061 

72 

615.0 

562.3 

1526.1  597.1 

532858 

23811 

0.93484 

2.25  768 

2.12611 

2.14589 

1.6124 

1.2985-0,00401 

1.26H5 

0,046932 

0.4937 

0.070982 

73 

612.8 

557.3 

1525*6  594*0 

525840 

23842 

0.93094 

2.25721 

2.11 792 

2.13717 

1.6256 

1.2983-0.00393 

1.2565* 

0,047810 

0.5Q42 

0,072940 

74 

610.7 

552.4 

1825.1  b90.9 

518992 

23874 

0.92707 

2.25671 

2.10981 

2.12852 

1.5387 

1.2981-0.00384 

1.25109 

0.048700 

0.5149 

0.074936 

75 

608.6 

547.6 

1524,6  587.8 

612313 

23909 

0.92326 

2.25619 

2.10177 

2.11994 

1.5518 

1.2979-0.00376 

1.24647 

0.049600 

0,5258 

0.076969 

76 

606.5 

542.9 

1524,1  584.8 

505790 

23944 

0.91947 

2.25565 

2.09380 

2.111*2 

1.5648 

1.2978-0.00367 

1.24115 

0.050511 

0.5368 

0.079041 

77 

604,5 

538.3 

1523.6  581.9 

499439 

23982 

0.91574 

2.25507 

2.08591 

2.10298 

1.5778 

1.2976-0.00359 

1*23617 

0.051433 

0.5480 

0.081149 

76 

602.6 

533.8 

1523.2  679.1 

493232 

24022 

0.91204 

2.25447 

2.07809 

2.09460 

1.5907 

1.2974-0.00352 

1,23164 

0.052367 

0.6593 

0.083298 

79 

600.6 

529.4 

1522.7  576.3 

487191 

24064 

0.90839 

2.25382 

2.07034 

2.08629 

1.6034 

1,2972-0.003** 

1*22667 

0.053312 

0.5708 

0.085483 

80 

598.8 

525.1 

1522.3  573.5 

491295 

24108 

0.90479 

2.25315 

2.06266 

2.07005 

1.6162 

1.2970-0.00338 

1.22269 

0.054268 

0.58?5 

0.087707 

X*  84.020* 

DSU*  0.08929. 

THU«0, 

0553614*  CTH»0. 0544319,  HU*  1.612848,  H* 

= 1.616172.  CH=  1.619192.  N=  6.73410 

81 

596.9 

520.8 

1821.8  570.9 

*75553 

24155 

0.90123 

2.252*5 

2.05506 

2.06908 

1.6288 

1.2968-0.00332 

1.21818 

0,055236 

0.6944 

0.089969 

82 

595.1 

516.7 

1521.4  568.3 

469961 

24205 

0.89772 

2.25170 

2.04753 

2.061 79 

1.6413 

1.2966-0.00327 

1.21480 

0.056215 

0,6064 

0.092268 

83 

593.4 

512.7 

1821.0  565.7 

464506 

24256 

0.89425 

2.25092 

2.04006 

2.05376 

1.6538 

1.2964-0,00322 

1.21089 

0.057206 

0.6106 

0.094606 

84 

591,7 

508,8 

1*20,6  563,2 

459209 

243)2 

0.89084 

2.25009 

2.03268 

2.04502 

1.6661 

1.2962-0.00318 

1.20773 

0.058207 

0.6310 

0.096979 

85 

590,0 

504.9 

1520.2  560.7 

454038 

24369 

0,88747 

2.24924 

2.02537 

2.03796 

1.6783 

1 .2960-0.00314 

1.20482 

0.059220 

0.6435 

0.099391 

86 

588,3 

501.2 

1519.8  558.4 

449025 

24430 

0.88416 

2,24833 

2.01814 

2.03019 

1.6904 

1.2958-0.00310 

1.20194 

0.060243 

0.6562 

0.101835 

87 

586.8 

497.5 

1519.4  556.0 

444136 

24493 

0.68089 

2.24739 

2.01098 

2.02250 

1.7024 

1 ,2956-0.00308 

1.20023 

0.061276 

0,6690 

0*104316 

88 

585.2 

494.0 

1519.0  553.8 

439389 

24560 

0.87769 

2,24640 

2.00390 

2.01490 

1.7142 

1.2954-0.00306 

1.19816 

0.062320 

0.6820 

0*106830 

89 

583.7 

490.5 

1518.7  551.5 

434772 

24630 

0.87453 

2,24538 

1,99690 

2.00739 

1 . 7259 

1.2952-0.00306 

1.19762 

0.063373 

0,6952 

0.109377 

90 

581.7 

485.9 

1518.2  548.6 

426644 

24  729 

0.87029 

2.24391 

1.98744 

1.99725 

1.7418 

1,2949-0.00305 

1.19606 

0.064833 

0.7135 

0.112925 

X*  92. 

781* 

OsU*  0*11521* 

THU=0i 

,0662907*  CTH: 

=0.0650438*  HU*  1.737954,  H*  1.741787,  CH*  1,746030*  1 

**  6,78089 

91 

579,7 

481.4 

15W.7  645.7 

422769 

24835 

0.86616 

2,24237 

1.97814 

1.98729 

1.7573 

1.2947-0,00303 

1.19488 

0.066308 

0.7320 

0.116524 

92 

577.8 

477.1 

1517.3  543.0 

417115 

24946 

0.86212 

2,24076 

1.96899 

1,97751 

1.7726 

1.2944-0.00305 

1.19572 

0.067800 

0.7508 

U. 120182 

93 

576.0 

473.0 

1516.8  540.3 

411676 

25062 

0.85819 

2.23908 

1,95998 

1.96791 

1.7876 

1.2941-0.00306 

1,19627 

0.069309 

0.7699 

0.123897 

94 

574.3 

469.0 

1516.4  o37.8 

406449 

25184 

0.85435 

2.23733 

1.95114 

1.95849 

1.8023 

1.2938-0.00306 

1.19604 

0.070833 

0.7892 

0.127665 

95 

572.6 

465.1 

1516.0  535,3 

401431 

25311 

0.85062 

2.23551 

1.94244 

1.94925 

1.8168 

1.2935-0.00307 

1.19677 

0.072372 

0.8087 

0.131483 

96 

571.0 

461.4 

1516.6  632,9 

396599 

25444 

0.84697 

2.23363 

1.93389 

1.94018 

1.0309 

1.2933-0.00309 

1.19866 

0.073927 

0,8285 

0.135355 

97 

569,4 

457,8 

1515,3  530.6 

391948 

25582 

0.843*2 

2.23170 

1*92540 

1.93127 

1,8448 

1,2930-0,00309 

1.19872 

0.075497 

0.8486 

0.139280 

98 

567.9 

454,3 

1514. 9 528.3 

367490 

25725 

0.83997 

2.22968 

1.91722 

1.92255 

1.8584 

1,2927-0.00309 

1 ,19908 

0.077081 

0.8689 

0.143248 

99 

566,4 

450.9 

1814.5  626.2 

383196 

25074 

0.83661 

2.22762 

1.90910 

1.91399 

1.8717 

1.2924-0,00311 

1.20151 

0.070679 

0.8895 

0.147266 

100 

565.0 

447,7 

1514.2  624.1 

379059 

26027 

0.83334 

2.22550 

1.90111 

1.90559 

1.8848 

1.2921-0.00310 

1.20142 

0.080293 

0.9J03 

0.151334 

X*105.' 

689* 

0SU=  0.15492. 

THU«0, 

,0823957  * CTH 

=0,0005858.  HU*  1.880166,  H 

= 1.084781, 

CH=  1,890933, 

N*  6.84641 

A E DC-T  R-78-63 


133 


101  563.7  44*. 6 151.3.9  522.1  375099  26188  0.83016  2.22331  1.89327 

102  562.4  441.6  1513.6  520.2  371282  26352  0.82707  2.22108  l.«85S6 

103  861.1  438,7  1513.3  518.3  367609  26522  0.82406  2.21879  1.87798 

104  559. 9 435.9  1513.0  516.5  364094  26698  0.82116  2.21644  1.870S5 

105  558.7  433.2  1512.7  514.7  360710  26879  0.81833  2.21404  1.86325 

106  557.6  430.6  1512.4  513.1  357455  27065  0.81558  2.21160  1.85608 

107  856.5  428.1  1512.2  511.5  3S4349  27258  0.81293  2.20909  1.84905 

108  855.5  428.7  l8ll,9  509.9  3S1364  274S8  0.81036  2.20655  1.84216 

109  554.5  423.4  1811,7  508.4  348498  27657  0.80788  2.20396  1.83538 

110  553.5  421.2  1511.5  507.0  345759  27865  0.80548  2.20132  1.82876 

X*  1 19,656.  OSU*  0.19943.  THU*0. 1 Q00S46.  CTH*0. 0974769,  HU' 

111  582.6  419,1  lsll .2  50S.6  3431*4  28079  0.B0317  2.19864  1.8222T 

112  551.7  4 | 7 .0  1811.0  504.3  340639  28298  0.80094  2.19592  1.81591 

113  550.B  415.1  1510. B 503. 0 338242  28522  0.79880  2.19316  1.80968 

11*  550.0  413.2  1810. 6 501.8  335959  28752  0.79874  2.19036  1.80358 

115  549.3  411.4  1510.4  500.7  333792  28988  0.79477  2.18752  1.79763 

116  5*8.5  409.8  1610,3  499.6  331726  29228  0.79287  2.1846S  1.79)81 

117  547.8  408.1  1510.1  498.5  32976!  29474  0.79106  2.18174  1.78613 

118  547.2  406.6  1509.9  497.6  327896  29725  0.78934  2.17881  1.78057 

119  546.5  405.2  1809.8  496.6  326128  29981  0.78769  2.17584  1.77515 

120  546,0  403.8  1809.6  495.7  324458  30243  0.7861?  2.17285  1.76987 

77-1 34 ,453.  OSU*  0.24598.  THU*0. 1 185693.  CTH*0 . 1 1*9995,  HU' 

121  545.*  *02.5  1509. S 494.9  322890  30510  0.78464  2.16983  1.76473 

122  544.9  401.3  1609.4  *94.1  321412  3078)  0.78325  2.16b79  1.75972 

123  544.4  400.1  1809.3  *93.3  320026  31058  0.78193  2.16373  1.75*85 

12*  543.9  399.0  1509.1  *92.6  318728  31339  0.78069  2.16065  1.75012 

125  543.5  398.0  1509.0  *92.0  317517  31625  0.77952  2.15756  1.7*552 

126  543.1  397.1  1508.9  *91.4  316392  31915  0.77844  2.15*45  1.7*106 

127  542.7  396.2  1508.9  *90.8  315350  32210  0.77743  2.15133  1,73673 

128  542.3  395.4  1508.8  490.3  314390  32509  0.77650  2.14820  1.73253 

129  542,0  394.7  1508,7  489.8  313509  3281)  0.77564  2.14506  1,728*7 

130  541.7  394.0  1508.6  489,4  312705  33120  0,77486  2.14193  1.72454 

X*149*842,  11SU4  0.29006)  THU=0. 1366870.  CTH*0,  1319490)  HU= 

131  541.5  393.4  1508.6  489.0  311977  33430  0.77415  2.13879  1.72074 

132  541.2  392.9  1508. $ 488.6  311324  33745  0.77351  2.13565  1.71708 

133  541.0  392.4  1508. 5 488.3  310743  34063  0.77294  2.13251  1.71354 

13*  5*0.8  391.9  1-.08.4  488.0  310229  3438J  0.77243  2.12938  1.71013 

135  540.7  391.6  1508.4  487.8  309778  34707  0.77199  2.12626  1.70684 

136  540.5  391.2  1508.3  487.6  309386  35033  0.77160  2.12316  1.70366 

137  540.4  390.9  1508. 3 487.4  309053  35361  0.77127  2.12007  1.70060 

138  540.3  390.7  1508.3  487.2  308778  .35692  0.77100  2.11699  1.69765 

139  540.2  390.5  1508.3  487.1  308550  36024  0.77077  2.11393  1.69480 

140  540.2  390.4  1508.2  487.0  308365  36357  0.77059  2.11090  1.69205 

X=165.5*9.  DSU=  0.32721.  THU*0. 1530049.  CTH=0. 1470484.  HU' 

141  540.1  390.2  1506.2  486.9  308223  36692  0.77045  2.10789  1.68938 

142  540.1  390.2  1508,2  486.9  308117  37028  0.77034  2,10490  1.68681 

143  540.0  390.1  1508.2  486.8  308039  37365  0.77026  2.10194  1.68430 

144  540.0  390.1  1508,2  486.8  307987  37702  0.77021  2.09901  1.68186 

145  540.0  390.0  1508.2  486.8  307956  38040  0.77018  2.09610  1.67948 

146  540,0  390.0  1508.2  486.8  307937  38377  0.77016  2.09323  1.67715 

147  540.0  390.0  1508.2  ,86.8  307930  387)5  0.77016  2.09039  1.67486 

148  540,0  390.0  1508,2  486.8  307927  39053  0.77015  2.08759  1.67261 

149  540.0  390.0  1508.2  486.8  307927  3939,)  0.77015  2.08481  1.67038 

**179.757 . DELTA**  0.3440982.  THE TA=0» 1590590,  H*  2.163337, 

RE.THETAx  48979.,  LOG*  4.69001) 


1.89737  1.8975  1.2918-0.00309  1.20157  0.081918  0.9313  0.155439 

1.88930  1,9099  1.2916-0.00310  1.20374  0.083558  0.9525  0.159591 

1.88138  1.9221  1.2913-0.00308  1.20309  0.0852U  0.9740  0.163786 

1.87363  1.9340  1.2910-0.00306  1.20272  0.086875  0.9956  0.168013 

1.86604  1.9455  1.2907-0.00306  1.20*22  0.088550  1.0175  0.172278 

1.85859  1.9568  1.2904-0.00303  1.202*6  0.090238  1.0396  0.176581 

1 .85131  1.9676  1,2901-0.00299  1.200*6  0.09193*  1.0618  0.180904 

1.84418  1.9784  1.2898-0.00298  1.20083  0.093639  1.08*2  0.185255 

1,83720  1.9888  1.2895-0.0029*  1.19895  0.09535*  1.1068  0.189638 

1.83037  1.9988  1.2893-0.00289  1.1953*  0.097076  1.1295  0.194033 

1.993259,  H=  1.998791,  CH»  2.007159.  N*  6.91*36 

1 *823  70  2.0085  1.2890-0.00284  1.19294  0.098801  1.1524  0.198440 

1.81718  2.0179  1.2887-0.00281  1.19101  0.100535  1.1754  0.202865 

1.81079  2.0269  1.2884-0.00276  1.187*9  0.102273  1.1985  0.207303 

1.80456  2.0357  1.2881-0.00269  1.18197  0.10*015  1.2216  0.2117*1  - 

1.79849  2.04*1  1.2878-0.00262  1.17665  0.105756  1.2*49  0.216174 

1.79256  2.0521  1,2875-0.00256  1.17197  0.107499  1.2681  0.220603  v 

1.78677  2.0599  1.2873-0.00250  1.16648  0.1092*3  1.2915  0.225028 

1.7811)  2.0673  1.2870-0.00243  1.16019  0.110986  1.31*8  0.229**0 

1.77563  2.0744  1 , 2867-0 . 00235  1.15291  0.112726  1.3382  0.233835 

1.77028  2.0811  1.2864-0.00226  1. 1**07  0.11**61  1.3615  0.238205 

2.074552.  H*  2.081109,  CH*  2.091857.  N*  6.98261 

1.76507  2.0875  1,2861-0.00217  1.13*90  0.116189  1.38*8  0.2*25*2 

1.76002  2.0935  1.2859-0.00209  1.12591  0.117910  1.4080  0.2*6845 

1.75510  2.0992  1.2856-0.00199  1.11610  0.119622  1.4311  0.251112 

1.75032  2.10*6  1.2853-0.00190  1.10550  0.12132S  1.45*2  0.255337 

1.74569  2,1096  1 .2851-0.00 180  1.0941T  0.123017  1.4770  0.259513 

1.7*119  2.11*3  1.2848-0.00170  1.08218  0.124695  1.4998  0.263637 

1.73684  2.1186  1.2845-0.00159  1.06955  0.126359  1.5223  0.26770* 

1.73262  2.1226  1.2843-0.001*8  1.05632  0.128008  1.5*47  0.271709 

1.72855  2.1263  1 .28*0-0.001 38  1.0*256  0.129639  2.5668  0.275648 

1.72460  2.1296  1.2838-0.00127  1.02835  0.131252  1.5887  0,279618 

2.12203*.  H»  2.129630,  CH*  2.1*2629,  N*  7.0*826 

1.72079  2.1327  1. 2835-0. 00115  1.01305  0.1328*6  1.610*  0.283315 

1.71712  2,136*  1.2833-0.00103  0.99711  0.13**18  1.6318  0.287031 

1.71357  2.1378  1,2830-0.00092  0.98159  0.135967  1.6528  0.290666 

1.71015  2.1399  1.2828-0.00081  0.96624  0.137495  1.6736  0.294222 

1,70686  2.1417  1.2825-0.00070  0.95091  0.139001  1.69*1  0.297698 

1.70368  2.1433  1.2823-0.00060  0.93543  0.140*84  1.7143  0.301094'' 

1.70061  2.14*6  1.2820-0.000*9  0.91930  0.1*194*  1.7341  0.30**08 

1.69766  2.1456  1.2818-0.00038  0.90400  0.143380  1.7536  0.307637 

1,69*81  2.146*  1.2816-0.00030  0.89035  0.1**794  1.7729  0.310792" 

1.6920b  2.1*71  1.2814-0.00021  0.87678  0.146188  1.7918  0.313RT7 

2.138547,  H«  2.1*7074,  CH*  2.161857,  N*  7.10823 

1.6893V  2.1*75  1 . 28 1 1 -0. 0001 3 ".86376  0.1*7561  1.8105  0.316891 

1.68681  2.1*78  1.2809-0.00006  0.85261  0.1*8915  1.8289  0.3198*1 

1.68*30  2,1*80  1.2807-0.00000  0.8*269  0.150253  1.8*71  0.322739 

1.68186  2.1480  1.2805  0.00005  0.83382  0.151577  1.8651  0.325588 

1.67948  2.1*80  1.2803  0.00008  0.82686  0.152887  1.8829  0.328396 

1.67715  2,1*79  1.2801  0.00011  0.821*1  0.154189  1.9007  0.331174 

1.67*86  2.1477  1.2799  0.00013  0,81732  0.155482  1.9183  0.333928 

1.67261  2.1*75  1.2797  0.0001*  0.81*71  0.156770  1.93S9  0.336667 

1.67038  2,1*73  1.2795  0.0001*  0.81292  0.158055  1.9534  0.339397 

N*  7.1564820,  DELTAS  1.953*113,  RE/FT*  369512*. 

RE. DELTA*  601508..  LOG*  5.77924 
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M A C H 4 NOZZLE  CONTOUR*  RADIAL  FLOW  ENOS  AT  STA  76.9263852,  TEST  CONE  BEGINS  AT  STA  132,3126057*  SCALE  FACTOR  = 24. 
RC=  6,000000  ETAO-  0.6700  DEG  AMACH=  2,2878437  8MACH*  3,0821543  CMACH*  4.0000000  EMACH*  1.6601538  GMACK* 
STAG.  PRESSURE3  200,  RSI*  STAG,  TEMPERATURE3! 638.  DEG  «*  THROAT  TEMP. 3 866,  DEG  R,  WALL  TEMP. *540,  OEG  R,  THROAT  HT  COEF 


PARABOLIC  TEMPERATURE  DISTRIBUTION  MOOIF.  SPALUING-CH1  REFERENCE  TEMP  VAN  DRIEST  REFERENCE  REYNOLOS  NUMBER 


STA (IN) 

YUN) 

DELR(IN) 

R(IN) 

OY/OX 

02Y/0X2 

OA/OX 

DR/OX 

MACH  NO* 

OM/DX 

PE/PO 

1 

46.075855 

3,742729 

0.0055143 

3.7482437 

0.0 

0.0445308 

0.0006641 

0.0006641 

1.0471638 

0.1289481 

4.99570-01 

2 

46.194522 

3,743043 

0*0055941 

3.7486371 

0.0052790 

0.0444289 

0.0006795 

0.0059585 

1*0626027 

0.1303456 

4.90340-01 

3 

46.317241 

3,744025 

0.0056784 

3.7497038 

0. 0107240 

0.0443160 

0.0006964 

0.0114204 

1.0786293 

0.1308606 

4,80850-01 

4 

46.443834 

3.746738 

0.0057677 

3.7515058 

0.01632  7 1 

0.0441406 

0.0007156 

0,0170426 

1,0952300 

0.1315243 

4.71130-01 

5 

46.574687 

3*748253 

0*0058627 

3.7541157 

0,0220090 

0.04T8612 

0.0007355 

0.0228245 

1.1124932 

0.1320693 

4,61130-01 

6 

46.709786 

3.751637 

0.0059634 

3. 7576009 

0.0279906 

0.0434400 

0.0007567 

0.0287473 

1.1303552 

0.1324678 

4.50910-01 

7 

46.84995U 

3.755988 

0.00607H 

3. 7620592 

0.0340438 

0.0428567 

0.0007789 

0.0348227 

1.1489592 

0.1326094 

4.40410-01 

8 

46.995411 

3.761394 

0*0061860 

3. 7675796 

0.0402279 

0,0421265 

0.0008019 

0.0410298 

1.1682305 

0.1324519 

4,29690-01 

9 

47.147418 

*. 767996 

0.0063098 

3.7743055 

0.0465699 

0.0411777 

0.0008264 

0.0473963 

1.1883589 

0.1320898 

4.18670-01 

10 

47.306791 

3,775942 

0.0064435 

3.7023854 

0.0530416 

0.0399150 

0.0008511 

0.0538927 

1.2093556 

0.1311293 

4.07360-01 

11 

47.474504 

3,785399 

0.0065884 

3.7919877 

0.0596137 

0.0383639 

0,0008766 

0.0604903 

1.2312390 

0,1296467 

3 .95800-0 1 

12 

47.652195 

3*796599 

0.0067465 

3.0Q3345S 

0,0662758 

0.0364867 

0,0009022 

0.0671780 

1.2541190 

0,1275207 

3.0394D-O1 

13 

47,840976 

3*8097^2 

0.0069193 

3,8166811 

0*0729621 

0,0342307 

0,0009269 

0*0738890 

1*2779433 

0.1245724 

3.71860-01 

14 

48,042344 

3*825149 

0.0071085 

3.8322578 

0,0796000 

0.0316003 

0,0009509 

0.08OS509 

1.3026785 

0.1210265 

3*59600-01 

15 

48.257882 

3*843041 

0.0073161 

3.8503570 

0.0861321 

0.0289891 

0.0009744 

0,0071065 

1.3283469 

0.1173018 

3.4719D-01 

16 

48.489226 

3*863742 

0.0075443 

3.8712867 

0,0925115 

0.0262838 

0.0009986 

0.0935101 

1.3550399 

0,1138238 

3.34620-01 

1/ 

48.737829 

3*887550 

0*0077958 

3,8953450 

0,0987007 

0.0236942 

0.0010235 

0.0997242 

1.3829205 

0.1105609 

3.21870-01 

18 

49.005786 

3*914845 

0.0080735 

3,9229188 

0,1047027 

0.0212013 

0.0010497 

0.1057524 

1.4120873 

0.1075151 

3.08930-01 

19 

49.294604 

3*945969 

0*0003808 

3.9543497 

0.1104531 

0.0187513 

0.00107/7 

0.1115309 

1.4427244 

0.1047381 

2.95780-01 

20 

49,606502 

3*981325 

0*0087215 

3,9900470 

0.1159113 

0.0164000 

0,0011075 

0.1170188 

1 .4749409 

0.1020542 

2.82440-01 

21 

49*943497 

4*021316 

0.0091002 

4*0304164 

0.1210936 

0.0142664 

0.0011397 

0*1222334 

1*5088820 

0*0995120 

2,68920-01 

22 

50.166357 

4*048660 

0 .0093566 

4.0580171 

0.1241092 

0.0128924 

0.0011610 

0.1252702 

1*5308817 

0.0979907 

2,60440-01 

23 

50.485904 

4*088966 

0.0097325 

4.0986985 

0.1279362 

0.0113023 

0.0011917 

0.1291280 

1*5618623 

0.0959719 

2,48890-01 

24 

50.852165 

4.136581 

0.0101754 

4.1467564 

0.1317928 

0.0098352 

0.0012271 

0,1330199 

1*5966017 

0.0938333 

2,36460-01 

25 

51.251055 

4,189929 

0.0106726 

4.20061121 

0.1354143 

0.0083961 

0,0012*56 

0.1366800 

1 .6335890 

0.0916764 

2.23810-01 

26 

51.675884 

4*248214 

0.0112190 

4.2594329 

0.1386722 

0.0070360 

0.0013060 

0.1399790 

1.6720611 

0.0895581 

2.11290-01 

27 

52.122740 

4*310875 

0.0118127 

4.3226873 

0.1415189 

0.0058305 

0.0013501 

0.1428690 

1.7116110 

0.0874521 

1 .99070-01 

28 

52.589479 

4.377557 

0.0124533 

4.3900108 

0.1439/69 

0.0047S61 

0.0013955 

0.1453724 

1.7519140 

0.0853867 

1.87280-01 

29 

53.074361 

4*447927 

0*0131415 

4.4610685 

0.1460261 

0,0037918 

0.0014426 

0.1474687 

1.7928312 

0.0833563 

1,75960-01 

30 

53*576491 

4*521718 

0.0138780 

4*5355964 

0*1477043 

0*0029792 

0.0014914 

0,1491957 

1*8341515 

0*0813511 

1,65170-01 

31 

54.094777 

4*598672 

0.0146642 

4.6133357 

0.1490542 

0.0022743 

0.0015416 

0.1505958 

1.8758124 

0.0793805 

1.54910-01 

32 

54.628651 

4.678566 

0*0155008 

4.6940663 

0.1500868 

0.0016926 

0.0015929 

0.1516797 

1.9176407 

0.0774225 

1.45220-01 

33 

55.177283 

4.761154 

0.0163893 

4,7775437 

0.1508792 

0.0012503 

0.0016456 

0.1525247 

1.9595949 

0.0755200 

1.36080-01 

34 

55.740017 

4.846257 

0*0173303 

4.8635878 

0.1514700 

0.0008799 

0.0016987 

0.1531694 

2.0015440 

0,0736156 

1.2750D-01 

35 

56.316071 

4.933654 

0*0183244 

4.9519784 

0.1518766 

0,0005863 

0.0017525 

0.1536291 

2.0434024 

0.0717661 

1, 1945D-01 

36 

56.904570 

5*023130 

0*0193719 

5.0425017 

0.1521507 

0.0003831 

0.0018065 

0.1539571 

2.0850968 

0.0699376 

1*11930-01 

37 

57.504606 

5*114493 

0.0204721 

5.1349650 

0.1523300 

0.0002322 

0.0018601 

0.1541901 

2*1265044 

0.0681244 

1. 04920-01 

38 

58.115220 

5*207549 

0* 0216244 

5*2291739 

0.1524304 

0.0001177 

0*0019137 

0*1543441 

2*1675528 

0.0663705 

9*83930-02 

39 

58.735317 

5*302091 

0.0228279 

5*3249191 

0.1524740 

0,0000421 

0.00196/1 

0.1544410 

2.2081710 

0.0646662 

9.23330-02 

40 

59,363844 

5*397932 

0*0240810 

5.4220133 

0.1524825 

0.0000093 

0.0020197 

0.1545022 

2.2482849 

0.0630080 

8. 67140-02 

41 

60.000000 

5*494933 

0*0253825 

5.5203158 

0,1524857 

0,0 

0.0020715 

0.1545572 

2*2878437 

0,0613610 

8.15080-02 

42 

60.552926 

5*579249 

0.0265402 

5.6057892 

0.1524860 

-0*0000050 

0*0021158 

0*1546036 

2.3214084 

0.0600664 

7*73390-02 

43 

61.103390 

5*663187 

0.0277170 

5.6909039 

0.1524802 

-0.0000214 

0*0021595 

0.1546398 

2.3541235 

0*0588206 

7.34820-02 

44 

61.651753 

5*746798 

0.0209130 

5.7757114 

0.1524645 

-0.0000383 

0*0022022 

0.1546666 

2.3860447 

0.0576257 

6.99060-02 

7S038624 
2.2878437 
,3  0.17482 


BETA 

-4.8038D-01 
-4.82790-01 
-4,81870-01 
-4.81520-01 
-4.80710-01 
-4. 79400-01 
-4.77200-01 
-4,74010-01 
-4.7018D-01 
-4 ,64390-01 

-4. S6980-01 
-4.47600-01 
-4. 3572D-01 
-4. 22220-01 
-4.08590-01 
-3.96310-01 
-3. 85220-01 
-3.75300-01 
-3.66700-01 
-3.58810-01 

-3,51800-01 
-3,47830-01 
-3.4283D-01 
-3,37860-01 
-3.3318D-01 
-3.28910-01 
-3.2493D-01 
-3. 21290-01 
-3,17930-01 
-3,14790-01 

-3,11860-01 
-3,09040-01 
-3,06460-01 
-3.03870-01 
-3.01460-01 
-2.99070-01 
-2.96650-01 
-2,94350-01 
-2. 92140-01 
-2.89940-01 

-2.87710-01 

-2.86020-01 

-2.84460-01 

-2.82950-01 
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135 


45 

62. 198387 

5. 830135 

0*0301283 

5.8602635 

0.1524383-0.0000627 

0.0022437 

46 

62*743709 

5.913254 

0*0313630 

5.9446174 

0.1523961-0.0000967 

0.0022041 

47 

63*288168 

5.996214 

0.0326174 

6.0288310 

0.1523330-0.0001418 

0.0023232 

48 

63.832236 

6.079073 

0.0338918 

6.1129649 

0.1522418-0.0002009 

0.0023606 

49 

64*376299 

6*1616/3 

0.0351860 

6,1970586 

0.1521144-0.0002692 

0.0023959 

50 

64,921084 

6.244792 

0.0365006 

6.2812030 

0.1519487-0.0003419 

0.0024301 

51 

65.467010 

6.327604 

0.0378366 

6.3654410 

0.1517414-0.0004193 

0.0024636 

52 

66,014590 

6.410632 

0.0391946 

6.4498266 

0.1514901-0,0004997 

0.00249*0 

53 

66.S64347 

6,493840 

0.0405743 

6.5344139 

O.IS11929-0. 0005832 

0.0025239 

54 

67,116843 

6.577284 

0.0419766 

6.6192606 

0.1508470-0,0006703 

0.0025522 

55 

67*672596 

6.661014 

0*0434029 

6,7044173 

0. 1504498-0. 000 7622 

0.0025792 

56 

68.231992 

6.745056 

0*0448529 

6,7899094 

0.1499967-0.0008597 

0,0026035 

57 

68.795850 

6.829497 

0.0463275 

6.8758240 

0, 149483  7-0.0009604 

0.0026270 

58 

69,364555 

6.914354 

0.0478283 

6.9621818 

5.1489085-0.0010625 

0 .0026*93 

59 

69.938609 

6.999660 

0.0493551 

7.0490151 

0.1482690-0.0011638 

0.0026692 

60 

70.518568 

7*085454 

0.0509087 

7.1363625 

0.1475648-0.0012623 

0.0026888 

61 

71.104909 

7*171760 

0*0524911 

7.2242513 

0.1467961-0.0013583 

0.0027064 

62 

71 .697974 

7.258581 

0*0541007 

7.3126815 

0.1459622-0.0014511 

0.0027222 

63 

72*298584 

7.345985 

0*0557407 

7.4017258 

0.1 450633-0. 00 1S406 

0.0027382 

64 

72*907018 

7.433961 

0.0574114 

7.4913728 

0.1440989-0.0016281 

0.0027510 

65 

73.523780 

7.522526 

0.0591122 

7.5816383 

0.1430678-0.0017145 

0.00276*5 

66 

74.149298 

7.611682 

0.0608458 

7.6725280 

0.1419682-0.0018007 

0.002776* 

67 

74.783805 

7.701399 

0.0626106 

7 • 7640100 

0.1407980-0.0018861 

0.0027866 

68 

75.428101 

7.791723 

0.0644094 

7.8561328 

0.1395555-0.0019688 

0.0027970 

69 

76.082345 

7*882605 

0*0662428 

7.9408479 

0.1382406-0.0020468 

0.0028056 

70 

76,746956 

7*974029 

0.0681098 

8.0421385 

0.1368552-0.0021195 

0.0028139 

71 

77**22242 

8*065962 

0.0700133 

8.1359750 

0.1354000-0.0021869 

0.0028212 

72 

78.108309 

6*150340 

0.0719505 

0.2302903 

0.1338775-0.0022469 

0.0028274 

73 

78.805862 

8*251179 

0.0739254 

8.3251049 

0.1322904-0.0023016 

0 * 0028343 

74 

79.514896 

8*344399 

0.0759373 

8.4203364 

0.1306395-0.0023527 

0.0028397 

75 

80.235689 

8*437951 

0.0779857 

8.5159371 

0.1289259-0.0023982 

0.0028453 

76 

80.968136 

8*531739 

0.0800723 

8. 6118115 

0.1271538-0.0024388 

0.0028497 

77 

81.712829 

8.625753 

0.0821951 

8.7079484 

0.1253229-0.0024757 

0.0028538 

78 

82,469634 

8.719809 

0.0843573 

8.8042461 

0.1234360-0,0025082 

0.0028583 

79 

83.238552 

8.8140S9 

0.0865560 

8.9006154 

0.1214957-0.0025381 

0,002861 7 

80 

84.019630 

8.908183 

0.0887931 

8.9969758 

0.1195017-0,0025669 

0.0028661 

81 

84.812477 

9.002122 

0.0910671 

9.0931894 

0.1174553-0.0025938 

0.0028697 

82 

85.617520 

9.095830 

0.0933785 

9.1892167 

0.1153568-0.0026169 

0.0028743 

83 

86.434259 

9.189181 

0.0957286 

9.2849096 

0.1132111-0.0026347 

0.0028781 

84 

87,262491 

9.282042 

0.0981129 

9.3801551 

0.1110227-0.0026455 

0.0028826 

85 

68.101869 

9.374299 

0.1005357 

9.4748345 

0.1087994-0.0026463 

0.0028875 

86 

88.951717 

9.465806 

0.1029906 

9.5607962 

0.1065525-0.0026396 

0,0028924 

87 

89,812142 

9*556509 

0.1054026 

9.6619914 

0.1042851-0.002629* 

0.0028991 

88 

90,682263 

9.646254 

0.1080077 

9.7542614 

0.1020023-0,0026164 

0.0029058 

89 

91.561549 

9*734931 

0.1105661 

9,8454975 

0,0997080-0.0026015 

0.0029145 

90 

92.701191 

9*854604 

0*1141289 

9.9687331 

0.0965482-0.0025789 

0,0029252 

91 

94.015488 

9.971808 

0.1177444 

10.0895528 

0.0933800-0.0025529 

0*0029361 

92 

95.263954 

10*086400 

0.1214187 

10.2078184 

0.0902103-0.0025220 

0.0029509 

93 

96.525320 

10*198100 

0.1251509 

10.3233311 

0.0870506-0.0024860 

0.0029651 

94 

97.799333 

10*307066 

0.1289366 

10.4360026 

0.0839079-0.0024465 

0.0029770 

95 

99,085954 

10*412998 

0.1327740 

10.5457720 

0.0807866-0.0024038 

0.0029904 

96 

100*384135 

10*515847 

0.1366663- 

10.6525130 

0.0776951-0.0023586 

0*0030057 

97 

101.693801 

10*615580 

0.1406126 

10.7561922 

0.0745362-0.0023129 

0.0030171 

98 

103.015063 

10*712175 

0*1446040 

10.8567787 

0.0716107-0.0022663 

0*0030281 

99 

104.346959 

10.8055*2 

0*1486469 

10*9541888 

0.0686239-0.0022185 

0.0030428 

100 

105.689498 

10.8956/3 

0,1527419  .11,0484151 

0.06S6780-0.0021708 

0.0030524 

0.1546820 

2.4172256 

0.0564765 

0.1546802 

2.4477161 

0.0553653 

0,1546562 

2.4775625 

0.0542857 

0.1546024 

2*5068080 

0.0532190 

0.1545103 

2.5354718 

0.0521503 

0.1543700 

2.5635910 

0.0511115 

0.1542049 

2. 5912185 

0.0501117 

0.15398*9 

2.6183867 

0.0490995 

0.1537168 

2.6450950 

0.0480789 

0.1533993 

2.6713791 

0.0470964 

0.1530290 

2.6972064 

0.0461238 

0,1526003 

2.7228104 

0.0451284 

0.1521107 

2.7479725 

0.0441636 

0.1615578 

2.7728239 

0.0432111 

0.1509382 

2.7973*72 

0.0422396 

0.1502536 

2.8215632 

0.0413084 

0.1*95025 

2.8455195 

0.0403647 

0.1486044 

2.8691629 

0.0394195 

0.1478015 

2.8925668 

0.0385213 

0.1468507 

2.9157299 

0. 0375957 

0.1458323 

2.9386209 

0.0366957 

0.1447446 

2.9613088 

0.0358090 

0.1435846 

2.9837327 

0.03*9161 

0.1423525 

3.0059512 

0.0340659 

0.1410463 

3.0279603 

0.0331975 

0.1396691 

3.0497246 

0.0323598 

0.1382212 

3.0713107 

0,0315266 

0.1367049 

3.0926338 

0.0306975 

0,1351247 

3.1137755 

0.0299100 

0.1334791 

3.1346955 

0.0291099 

0.1317712 

3.1553802 

0.0283486 

0.1300035 

3,1758845 

0.0275796 

0.1281767 

3.1961171 

0.0268336 

0.1262943 

3.2161669 

0.0261126 

0.1243574 

3.2359485 

0,0253917 

0.1223678 

3*2555157 

0.0247095 

0.1203250 

3.2746313 

0,0240239 

0.1182310 

3,2938948 

0.0233783 

0.1160892 

3.3127386 

0,0227294 

0.1139052 

3.3312761 

0.0221102 

0.1116869 

3.3496037 

0.0215079 

0.1094449 

3.3676009 

0.0209182 

0.1071842 

3.3053741 

0.0203684 

0.1049081 

3.4028437 

0.0198214 

0.1026225 

3.4200450 

0.0193209 

0.0994733 

3.4432004 

0.0186333 

0.0963161 

3.4657596 

0,0179740 

0,0931612 

3.4878170 

0.0173776 

0.0900157 

3,5093670 

0.0167933 

0.0068849 

3.5303069 

0,0162112 

0.0837770 

3.5508706 

0.0156662 

0,0007000 

3.5708751 

0,0151618 

0.0776533 

3,5904045 

0.0146382 

0.0746388 

3.6093807 

0.0141368 

0.0716667 

3.6279067 

0,0136893 

0. *068  730  4 

3.6459872 

0.0132107 

6.6b8SO-oa  -2.81*70-01 
6.3*920-02  -2.80000-01 
6.06080-02  -2. 78520-01 
5.79110-02  -2. 76930-01 
5.53880-02  -2,751 70-01 
5.30230-02  -2.73*10-01 

5. 08010-02  -2.71700-01 
*.87100-02  -2.69780-01 
*.67*10-02  -2.67670-01 
*.*8850-02  -2.65620-01 
*.31300-02  -2.6350D-01 
*.1*710-02  -2.61110-01 
3.99000-02  -2.58770-01 , 
3.8*110-02  -2.5637D-01 
3.69980-02  -2.53730-01 
3.56560-02  -2.51220-01 ; 

3. *3790-02  -2. *8500-01 
3.31660-02  -2.45660-01 
3.20100-02  -2.43000-01 
3.09070-02  -2.40050-01 
2,98570-02  -2.37150-01 
2.8853D-02  -2.3*220-01 
2.78970-02  -2.311*0-01 
2.69820-02  -2.282*0-01 
2.61070-02  -2.25110-01 
2.52720-02  -2.22080-01 

2.4*710-02  -2.18980-01 
2.37070-02  -2.15800-01 
2.297*0-02  -2.12810-01 
2.2273D-02  -2.09630-01 
2.16020-02  —2 • 06640-01 
2.09590-02  -2.03*80-01 
2.03**0-02  -2.00390-01 
1.97530-02  -1.97390-01 
1.91890-02  -1.9*300-01 
1,86470-02  -1.9140D-01 

1.81290-02  -1.8838D-01  i 
1.76330-02  -1. 85590-01.  >• 
1.71560-02  -1.8267D-01 
1.67010-02  -1.7989D-01 
1.626*0-02  -1.7717D-01 
1.58*70-02  -1,7**50-01 
1.5**60-02  -1.71980-01 
1.50630-02  -1.69*50-01 
1.46960-02  -1.67220-01 
1.4216D-02  -1.6*030-01 

1.3766D-02  -1.60930-01 
1.3340D-02  -1.58250-01 
1.29380-02  -1.55530-01 
1.2558D— 02  -1.52690-01 
1.22000-02  -1.50060-01 
1.1 860D-02  -1.47690-01 
1.15390-02  -1.4*990-01 
1 . 1236D-02  -1.42390-01 
1.09*80-02  -1.40190-01 
1.06750-02-1 .37550-01 
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101 

107.042865 

10.982573 

0.1568759 

102 

108.406158 

11.066175 

0.1610578 

103 

109.779387 

11.1*6487 

0.1652857 

104 

111*162793 

11.223*31 

0.1695469 

105 

112.555461 

11,297273 

0.1738494 

106 

113,957469 

11.367745 

0.1701915 

107 

115.368960 

11.434990 

0.1025558 

108 

116.789148 

1 1 .499005 

0.1069513 

109 

118.218325 

1 1 .559045 

0.1913802 

no 

119.655785 

11.617518 

0.195824? 

ni 

121.101604 

11. 67?074 

0.2002828 

112 

122.555756 

11.723567 

0.2047620 

113 

124.017588 

11.772029 

0.2092558 

11* 

125.487078 

11.817529 

0.2137532 

11& 

126.964?04 

1 1.860135 

0.2182460 

116 

128.448371 

11.899914 

0.2227397 

117 

129.939660 

11.936950 

0.2272299 

118 

131.437526 

11.971313 

0.2317102 

119 

132.941993 

12.003003 

0.2361758 

120 

13*. *52558 

12.Q32331 

0.2406179 

121 

135.969093 

12.059147 

0.2450280 

122 

137.491**0 

12.083627 

0.249407? 

123 

139.019115 

12.10S872 

0.253751? 

12* 

140.5520*2 

12.125991 

0.2500543 

125 

1*2.089762 

12.144091 

0.2623106 

126 

143.632160 

12.1602/6 

0.2665156 

127 

145.178800 

12.174650 

0.2706641 

120 

146.729536 

12.187326 

0.2747517 

129 

148.283950 

12.198419 

0.2707739 

130 

149.841072 

12.208041 

0.2827273 

131 

151.402906 

12.216303 

0.2066074 

132 

152.966864 

12.223318 

0.2904067 

133 

154,533406 

12.229209 

0.2941247 

13* 

156.102220 

12.234090 

0.2977629 

135 

157.673105 

12.238074 

0.3013211 

136 

159.245731 

12.241275 

0*3047986 

137 

160.819901 

12.243791 

0.3001933 

138 

162.395337 

12.245725 

0.3115025 

139 

163.971791 

12.2471/1 

0.3147358 

140 

165.549089 

12.248214 

0.31 78907 

141 

167.127015 

12.248938 

0.3209899 

142 

168.705380 

12.249417 

0.3240170 

143 

170,284056 

12.249711 

0.3269903 

144 

171.862898 

12.249878 

0.3299144 

145 

173.441792 

12.249965 

0.3327975 

146 

1 75.020669 

12.249998 

0.3356503 

147 

176.599460 

12.250006 

0.3384795 

148 

178.178127 

12.2500U3 

0.3412934 

149 

179.756652 

12.250000 

0.3440987 

STA 

46.060986. 

Y*«  3 

.7482388, 

11.1 394492  0.0627721-0.0021236  0.0030610  0.0658331 
11 #2272328  0.0599095-0. 0020755  0.0030732  0.0629826 
il. 3117732  0.0570929-0.0020260  0*0030795  0.0601/24 
11.3930778  0.05432*72-0.0019745  0.0030048  0.0574100 
11.47U222  0.0516121-0.0019209  0.0030932  0.0547053 
11.5459365  0.0489575-0.0018662  0,0030945  0.0520520 
11.6175455  0.0463622-0.0018121  0.0030935  0.0494556 
11.6859567  0 .'0438266-0.001  7596  0.0030969  0.0469235 
11.7512254  0.0413490-0.0017080  0.0030953  0.0444443 
11. 8133419  0.0389309-0.0016S57  0.0030877  0,0420186 

11.8723568  0.0365756-0.0016024  0.0030820  0.0396576 
11.9283285  0.0342844-0.0015486  0.0030772  0.0373616 
11.9812851  0.0320603-0.0014938  0.0030673  0.0351276 
12.0312820  0.0299061-0.0014373  0.00305U  0.0329575 
12.0783820  0.0278254-0.0013797  0.0030347  0.0308601 
12.1226533  0*0258210-0.0013227  0.0030191  0.0288*01 
12.1641803  0.0238904-0*0012680  0.0030011  0.0268914 
12.2030234  0.0220311-0.0012155  0.0029797  0.0250108 
12.2392588  0.0202414-0.0011633  0.0029545  0.0231958 
12.2729487  0.0185241-0.0011095  0.00292*4  0.0214485 

12.3041751  0.0168830-0.0010538  0.0028923  0.0197753 
12.33303*2  0.0153221-0.0009964  0.0028601  0.0181822 
12.3596230  0,0138443-0.0009390  0.0028253  0.0166697 
12.3840457  0.0124486-0.0008831  0.0027876  0.0152362 
12.4064013  0.0111330-0.0008293  0.0027472  0.0138802 
12.4267920  0.0098946-0.0007765  0,0027043  0.0125988 
12.4453143  0.0087347-0.0007228  0.0026591  0.0113938 
12.4620781  0.0076559-0.0006692  0,0026118  0.0102677 
12.477193?  0.0066569-0.0006173  0.0025626  0.0092195 
12.4907688  0,0057347-0.0005667  0.0025116  0.0082463 

12.5029103  0.0048894-0.0005157  0.0024575  0,0073469 
12.513725?  0.0041234-0.0004644  0.0024013  0.0065248 
12.5233341  0.0034359-0.0004145  0.0023*62  0.0057821 
12.5318526  0.0028239-0.0003663  0.0022921  0.0051160 
12.5393955  0 . 0022859-0 , 000320*  0.0022382  0.00*52*1 
12.546073?  0.0018169-0. 0002774  0.0021839  0,0040008 
12.5519845  0.00141 30-0. 0002364  0.0021285  0.0035*15 
12.5572270  0,0010723-0.0001978  0.0020758  0.0031*81 
12.5619065  0.0007895-0.0001624  0,00202*1  0.0028176 
12.5661128  0.0005600-0.0001295  0.0019822  0.0025422 

12.5699276  0,0003811-0.0000998  0.0019384  0.0023195 
12.5734338  0.0002*51-0,0000744  0.0019006  0.0021457 
12.5767017  0.0001462-0.0000522  0.0018677  0.0020140 
12.5797929  0.0000802-0,0000343  0,0018390  0.0019192 
12.5827620  0,0000379-0.0000212  0.0018164  0, 0018544 
12.5856485  0.0000 133-0 . OuOO 1 15  0,0017994  0.0018127 
12.5884859  0.0000017-0.0000048  0.0017872  0.0017889 
12.5912968-0.0000020-0.0000005  0.0017798  0.0017778 
12.5940987  0,0  0.0  0.0017746  0.0017746 

D2A/DX2*  0.000130108,  02R/0X2=  0,044660860* 


3,6635161 

0.0127512 

3.6806240 

0,0123407 

3.6972024 

0.0118955 

3.7134107 

0.011*691 

3.7291 1 80 

O.OHO07O 

3.7443916 

0.0106658 

3.7591219 

0.0102S50 

3.773*273 

0.0098946 

3.7873119 

0.0095120 

3.8006914 

0.0091164 

3.8135937 

0.0087518 

3.8260686 

0.0084067 

3.8381050 

0.0080513 

3.8496669 

0.0076813 

3.8807359 

0,0073276 

3.0713637 

0,0069963 

3.8815507 

0.0066670 

3.8912901 

0.0063397 

3.9005824 

0.0060110 

3,909*1*0 

0,0056760 

3.91 77A45 

0,0053509 

3.9256728 

0.0050407 

3.9331370 

0.0047340 

3.9401601 

0.0044313 

3.9467425 

0.0041330 

3.9528889 

0.0038397 

3.9586023 

0.0035520 

3.9638895 

0,0032704 

3.9687563 

0,0029955 

3.9732116 

0.0027282 

3.9772645 

0.0024612 

3.9809020 

0.0021997 

3.9841501 

0.0019SS3 

3.9870320 

0.0017245 

3,9895641 

0,0015054 

3.9917639 

0.0012955 

3.9936403 

0.0010889 

3.9951934 

0.0009008 

3.9964793 

0,0007384 

3.9975219 

0.0005049 

3. 9983248 

0.0004447 

3,9989255 

0.0003295 

3.9993651 

0.0002321 

3.9996582 

0.0001498 

3,9998381 

0.0000895 

3,9999408 

0.0000464 

3.9999845 

0,0000181 

3.9999980 

0.0000049 

4.0000000 

0.0 

1.04180-02  -1.34980-01 
1.01730-02  -1.32810-01 
9,94030-03  -1.30140-01 
9.72070-03  -1,27540-01 
9.51200-03  -1.2531D-01 
9.31370-03  -1.22530-01 
9.12670-03  -1,19720-01 
8.94900-03  -1.1 738D-01 
8.78020-03  -1.14660-01 
8.62080-03  -1.11660-01 

8.47010-03  -1.08900-01 
8.32710-03  -1.06260-01 
8.19160-03  -1.03370-01 
8.06380-03  -1,00150-01 
7.9434D-03  -9.7024D-02 
7.8297D-03  -9.40610-02 
7.72230-03  -9.10010-02 
7.62120-03  -8.78440-02 
7.52610-03  -8.45500-02 
7,43690-03  -8,10240-02 

7.35370-03  -7.74950-02 
7.27570-03  -7,40660-02 
7,20300-03  -7,05610-02 
7.13530-03  -6.69900-02 
7.07250-03  -6.33600-02 
7.01440-03  -5.96820-02 
6.96090-03  -5.59670-02 
6*91 170*03  -5.22270-02 
6,86680-03  -4,84770-02 
6.82600-03  -4.47310-02 

6.78910-03  -4,08760-02 
6.75620-03  -3.70010-02 
6.72690-03  -3.33020-02 
6.70110-03  -2.97340-02 
6.67840-03  -2.62710-02 
6,65890-03  -2.28780-02 
6.6422D-03  -1.94560-02 
6.62840-03  -1.62800-02 
6,61710-03  -1. 34960-02 
6.60790-03  -1,08110-02 

6.60080-03  -0. 30960-03 
6.59550-03  -6,22320-03 
6.59170-03  -4,42940-03 
6.58910-03  -2,88910-03 
6.58750-03  -1.74420-03 
6*58660-03  -9.13000-04 
6.58620-03  -3.601 10-04 
6.58610-03  -9.84020-05 
6.5861D-03  0.0 
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MACH*  COORDINATES  AND  DERIVATIVES*  LENGTH  * 133. 6956656 


X I IN) 

Y £ IN) 

OY/OX 

angle 

02Y/DX2 

*6.1)60986 

3,748239 

0.0 

o.o 

*,*66085900-02 

*8.(100000 

3,828872 

7.928752760-02 

4.533356900 

00 

3*233121 120-02 

50.000000 

4,037350 

1.231080500-01 

7.018258590 

00 

I .386269750-02 

58.000000 

4,305187 

1. 422101290-01 

Q.09376932D 

00 

6.1776125*0-03 

SA.OOOOOO 

4,599067 

1.504338720-01 

8.555076090 

00 

2. ***559730-03 

55.000000 

4,903448 

1 .534265540-01 

8.722675330 

00 

7.895883750-0* 

58.000000 

5,211391 

1 .543314570-01 

8,773323200 

00 

2.0**309060-0* 

60.000000 

5,520316 

1.545560260-01 

8.785890300 

00 

1.1 7939093D-0* 

68.000000 

5.829576 

1.546802720-01 

8.792842860 

00 

2.7*0835130-05 

6*. 000000 

6.138901 

1.545848900-01 

8,787505500 

00 

-1.5562 721 *D-0* 

66.000000 

<>.447580 

1.539992030-01 

8.754728380 

00 

— *.*0629780 D-0* 

68.000000 

6,754483 

1.527948470-01 

8.687310280 

00 

-7.755900790-04 

70.000000 

7.058280 

1 .50877708D-01 

8.579941610 

00 

-1.1*5012590-03 

78.000000 

7,357525 

1.482560530-01 

8.433018670 

00 

-1**68822230-03 

7**000000 

7,650897 

1.450194950-01 

8.251481230 

00 

-1.76*610790-03 

76.000000 

?. 937226 

1.412222640-01 

8.038283180 

00 

-2.033388590-03 

78.000000 

8.215470 

1.369524660-01 

7.798284970 

00 

-2.22815556D-03 

80.000000 

8.454813 

1.323377850-01 

7.538591680 

00 

-2.375525270-03 

88.000000 

8.744656 

1.274704390-01 

7.264341800 

00 

-2.4822***30-03 

84.000000 

8.994573 

1.224221840-01 

6,979544820 

00 

-2.561567750-03 

86.000000 

9.234248 

1 .172335770-01 

6.686468370 

00 

-2.622812320-03 

88.000000 

9,463443 

1.119561990-01 

6.388016790 

00 

-2.650252110-03 

90.000000 

9.682080 

1.066895860-01 

6.089826580 

00 

-2.623063850-03 

98.000000 

9.890242 

1. 014846590-01 

5.794803160 

00 

-2. 586320390-03 

9*.0»0000 

10.088061 

9.634882880-02 

b.503393690 

00 

-2.5*2686850-03 

96.000000 

10.275706 

9.131295110-02 

5.217377890 

00 

-2.49121*870-03 

98.000000 

10,453387 

8.638684330-02 

4.937343920 

00 

-2.43336*030-03 

100.000000 

10.621344 

8.159527320-02 

4.664730830 

00 

-2.35869*910-03 

108.000000 

' 10,779858 

7.69378839D-02 

4.399548740 

00 

-2.297913*70-03 

10*.000000 

10.929194 

7.242434540-02 

4.142376780 

oo 

-2.217338260-03 

106.000000 

11.069648 

6.804791130-02 

3.892856880 

00 

-2.158093120-03 

loa.oooooo 

11.201485 

6.381499830-02 

3.651378870 

00 

-2.079367280-03 

110.000000 

11.324996 

5.97 1422390-02 

3.417315050 

00 

-2.02025**00-03 

118.000000 

11. 440445 

5.576349840-02 

3.191707570 

00 

-1.9349*9230-03 

114.000000 

11.548148 

5.195996530-02 

2.9744U830 

00 

-1.87107*660-03 

116.000000 

11.648387 

4.830811190-02 

2.765700850 

00 

-1.783716790-03 

118.000000 

11.741483 

4.480880220-02 

2.565639050 

00 

-1.722059550-03 

180.000000 

11.827702 

4.143522470-02 

2.372706230 

00 

-1.648198760-03 

128.000000 

11.907330 

3.021807570-02 

Z.188669250 

00 

-1.5723*8910-03 

18*.oOOOOU 

11.980667 

3.514)80090-02 

2.012648650 

00 

-1.5038722*0-03 

186.000000 

12.0*7989 

3.220385630^02 

1.844507590 

00 

-1. *30333*20-03 

188.000000 

12.10959* 

2.942782410-02 

1,685603660 

00 

-1.3*89*23*0-03 

130.000000 

12.165800 

2.680149790-02 

1.535245190 

00 

-1.278*63020-03 

138.000000 

12.216891 

2.431 1 72790-02 

1,392685060 

00 

-1.212328*50-03 

134.000000 

12.263132 

2.195079550-02 

1 .257486000 

00 

-1.1*7515930-03 

136.000000 

12.30*785 

1.972754010-02 

1,130158190 

00 

-1.07*282300-03 

138.000000 

12.3*21*3 

1.765517960-02 

1.011462190 

00 

-9.99015303D-0* 

1*0.000000 

12.375503 

1.572884230-02 

9.011219710-01 

-9.272061620-0* 

1*8.000000 

12.405153 

1.394414440-02 

7.988888480-01 

-8.583803270-0* 

1*4.000000 

12.431367 

1.229J2949D-02 

7.042038580-01 

-7.936860*60-0* 

1*6,000000 

12. *5**09 

1.077353810-02 

6.172543810-01 

-7.2*27582*0-0* 

AEDC-TR-78-63 
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«<IN» 

YUN1 

OY/OX 

4NGLE 

02Y/0X2 

1*8.000000 

13.474553 

9,392165340-03 

5,381156120-01 

-6. 580913660-04 

iso.oooooo 

12.492063 

8. 1 39532360-03 

4,663505530-01 

-5.950398690-04 

1S2.000000 

12.507192 

7.009309710-03 

4,015972870-01 

-5.325294610-04 

164.000000 

12.520192 

6.0132864 5D- 03 

3,445317820-01 

-4.65704477D-04 

156.000000 

12.531329 

5.144374780-03 

2, 947483630-01 

-4. 0 3224 707 D- 04 

158.000000 

12.540852 

4.398816680-03 

2,520320050-01 

-3.437578460-04 

160.000000 

12.548996 

3. 762222270-03 

2,155584410-01 

-2.931423520-04 

162,000000 

12.555969 

3.229019150-03 

1 ,050085260-01 

-2. 377840490-04 

164.000000 

12.561986 

2.803381380-03 

1,606215010-01 

-1.901960570-04 

166.000000 

12.567239 

2.464070180-03 

1 ,411805360-01 

-1.483662230-04 

168.000000 

12.571900 

2.210520270-03 

1,266532760-01 

-1.077258170-04 

170.000000 

12.576128 

2.028398440-03 

1.162185100-01 

-7.520599360-05 

172.000000 

12.580055 

1.907351380-03 

1.093116990-01 

-4 .6286637 ID- OS 
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A 


A* 


a* 


C 


C1, 2,3, 4,5, 6 


C 


D 


1,2, 3, 4, 5, 6 


F 


n 


NOMENCLATURE 

Area 

Exit  area,  inviscid  contour 

Sonic  area 

Sonic  speed 

Factor  in  logarithmic  skin  friction  law, 

Eq.  (77) 

Coefficients,  Eq.  (35) 

Ratio  of  actual  mass  flow  to  that  if  R were 
infinite 

Skin  friction  coefficient,  compressible 

Skin  friction  coefficient,  incompressible 

Specific  heat  at  constant  pressure 

Coefficients,  Eq.  (37) 

Ratio,  Cf  /Cf 
i 

Multiplying  factors,  Eq.  (97) 

Ratio,  Rg  /Rq 
°i  c 

Multiplying  factors,  Eqs.  (94)  and  (96) 
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H 

h 

a 

K 

In 

log 

M 

m 

N 


n 


/ 


n 

Pr 


Q 


q 


q 


e 


Ratio,  6*/ 6 

Heat-transfer  coefficient 

Streamline  curvature 

Natural  logarithm  (base  e) 

Common  logarithm  (Ease  10) 

Mach  number 

Exponent  in  Eq.  (90) 

Velocity  profile  exponent 

Distance  normal  to  streamline 

Factors  in  axisymmetric  characteristics 
equations 

Coefficient  of  9 at  nth  point  on  contour 

Prandtl  number 

Factor  related  to  heat  transfer,  Eq,  (91) 

Coefficient  in  momentum  equation 

Velocity  along  streamline  or,  in  boundary- 
layer  equations,  velocity  within  boundary 
layer 

Velocity  at  edge  of  boundary  layer 
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Ratio  of  throat  radius  of  curvature  to 
throat  radius  (half  height,  a «■»  0) 

f 

2 2 

Gas  constant,  ft  /sec  R 

Reynolds  number  based  on  6,  compressible 

Incompressible  Reynolds  number 

Reynolds  number  based  on  0c,  compressible 

Incompressible  Reynolds  number 

Distance  from  source 

Distance  from  source  where  M = 1 , used  to 
non-dimensionalize  distances  for  inviscid 
calculations 

Radius  of  viscid  contour 

R + 1 

Cubic  integration  increments,  Appendix  B 

Temperature  within  boundary  layer 

Adiabatic  wall  temperature 

Reference  temperature,  Eq.  (87) 

Free-stream  temperature  at  edge  of 
inviscid  contour 


Wall  temperature 


Wall  temperature  at  nozzle  exit 

Wall  temperature  at  nozzle  throat 

Axial  component  of  velocity,  normalized 
by  a* 

Normal  component  of  velocity,  normalized  by 
a* 


Velocity  along  streamline,  normalized  by  a * 
Ratio  in  Eq.  (36)  or  (38) 

Axial  distance,  normalized  by  yQ  in  transonic 
equations,  normalized  by  r-)  in  inviscid 
calculations,  not  normalized  in  boundary- 
layer  calculations 

Normal  distance,  normalized  same  as  x 

Throat  half  height,  used  to  normalize 
x and  y in  transonic  calculations 

Theoretical  throat  height  if  R is  infinite 

Function  of  x in  transonic  equations,  or 
distance  normal  to  contour  in  boundary-layer 
calculations 


Mean  angle  of  right-running  characteristic, 
or  factor  in  temperature  distribution  in 
boundary  layer 

Mean  angle  of  left-running  characteristic 

Prefix  to  indicate  increment  in  value 

Specific  heat  ratio 

Boundary-layer  thickness 

Displacement  thickness  in  boundary  layer 

Displacement  thickness  when  boundary  layer 
is  large  relative  to  r 

w 

Incompressible  displacement  thickness  in  boundary 
layer 

Distance  along  left-running  characteristic 

Inflection  angle,  radians 

Momentum  thickness  in  boundary  layer 

Momentum  thickness  when  boundary  layer 
is  large  relative  to  r 

w 

Compressible  0 for-  flat  plate 
Incompressible  value  of  0 


Kinematic  momentum  thickness 


AE  DC-T  R-78-63 


e 

n 

K 

X 


n 

p 


* 


Value  of  0 at  nth  point  on  contour 
Constant  in  logarithmic  skin-friction  law 


1 


Mach  angle,  sin  ^(1/M) 

Viscosity  at  value  of  T 

c 

Viscosity  at  value  of  Tg 
Viscosity  at  value  of  T 

w 

Distance  along  right-running  characteristic 

Wake  variable  in  logarithmic  skin-friction  law 

Density  within  boundary  layer 

Density  at  edge  of  boundary  layer 

Zero  for  planar  flow,  1 for  axisymmetric  flow 

Flow  angle 

Flow  angle  of  viscid  contour 
Prandtl-Meyer  angle 
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SUBSCRIPTS 

1 

2 

3 

A,B, C,D,E, 
F,G,I,J,T 

a,b , c 

OTHER  NOTATION 

* 

BETA 

C(Y) 

C(YI) 


Values  at  point  1 on  right-running 
characteristic 

Values  at  point  2 on  left-running 
characteristic 

Values  at  intersection  of  characteristics 

Variables  evaluated  at  points  on  Figs. 

1 through  4 

With  u and  v,  values  corresponding  to  first-, 
second-,  and  third-order  approximations, 
respectively 


d/dx 


OUTPUT  NOMENCLATURE 

Pressure  gradient  parameter 

25*  dPE/dx 
yM2  PECf 

1 

Coefficient  of  third-degree  term  if  throat 
contour  is  a cubic 

Coefficient  of  third-degree  term  if  integrated 
throat  contour  is  a cubic 
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C(YP) 

Coefficient  of  third-degree  term  determined 

from  slope  of  contour 

D2A/DX2 

< 

Second  derivative  of  boundary-layer  correction 

evaluated  at  the  throat 

D2R/DX2 

Second  derivative  of  corrected  contour 

evaluated  at  the  throat 

DA/DX 

Slope  of  boundary- layer  correction 

DELR(IN) 

Boundary- layer  correction  to  inviscid  contour 

DELTA* 

<5*  from  Eq.  (66) 

DELTA*  - 1 

6*  from  Eq.  (63) 

FMY 

Bracketed  term  in  Eq.  (61) 

HYP/YO 

Value  of  hyperbola  with  same  throat  curvature 

ratio 

ICY 

106  [c(YI)  - C (Y)]  for  Point  2 

INT.Y/YO 

■M;.- 

Value  of  Y/YO  obtained  by  integrating  contour 

slopes  starting  at  inflection  point 

KCF 

1000  Cf 

KCFI 

1000  Cf 

i 

KCFS 

KCF  sec  <j> 

w 

146 


AE  DC-TR-78-63 


KTHP 


1000  de/dx 


MSS 


PAR/YO 


Result  of  mass  integration  along  characteristic 
EG  or  AB  (measure  of  accuracy  of  numerical 
integration) 

Value  of  parabola  with  same  throat  curvature 
ratio 


PE/PO 


Ratio  of  static  to  stagnation  pressure 


R(IN) 


Ordinate  of  viscid  contour 


MASS  Cp'/O+o) 


RTHI 


Incompressible  Reynolds  number  based  on 
momentum  thickness 


SMPP 


Second  derivative  of  Mach  number  in  source 
flow  evaluated  for  BMACH 


SMPPP 


Third  derivative  of  Mach  number  in  source  flow 
* evaluated  for  BMACH 


THETA  - 1 

WE 

WI 

WO 

WOPPP 


8 from  Eq.  (62)  used  in  Eq.  (61) 

Velocity  ratio  at  Point  E (Fig.  3) 

Velocity  ratio  at  Point  I (Fig.  3) 

Velocity  ratio  on  axis  at  throat 

Third  derivative  of  throat  velocity  distribution 
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WRPPP  Third  derivative  of  velocity  ratio  in  source 

flow  evaluated  at  WE 

WWO  Velocity  ratio  on  wall  at  throat 
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